68$ cat /tmp/p.pl; perl /tmp/p.pl                  
my $ppid= getppid();
my $job = `ps -o "cmd" -p $ppid`;
print $job 

#  -----
CMD
/bin/ksh