$ perl -E 'my $parent = getppid();
           open my $fh, "<", "/proc/$parent/comm";
           print <$fh>'
bash