BEGIN {
    my $cpid = fork;
    print "inner\n";
    exit 0 unless $cpid;
}
print "outer\n";