#!/data/local/bin/perl
 
BEGIN {
         fork and exit;
         print "inner\n";
      }
print "outer\n";