Copyright © tutorialspoint.com
getppid
Returns the process ID of the parent process.
Process ID of the parent process
Try out following example:
#!/usr/bin/perl $ppid = getppid(); print "Parent Process ID $ppid\n";