fork; print "inner\n";
eval qq{print "outer\n"};