use Win32::Getppid;
 
my $parent_pid = getppid;