Select Code to Download

#!/usr/bin/perl
#print "PID=$$\n";
...
    my $ppid=getppid();
    print "Child process: PID=$$,parent=$ppid\n";
}