#!/data/local/bin/perl
 
my $PIE=$$;
print "$PIE: inny\n";
BEGIN {
         fork and exit;
         # my $PIE = fork();
         print "$PIE: inner\n";
      }
print "outer\n";
print "$PIE: outy\n";
exec "sleep 10; kill $PIE";