use strict;
use warnings;

my $pid = $$;     
my $ppid = getppid();

print "Meine PID ist:  $pid\n";
print "Meine PPID ist: $ppid\n";