#!/perl/bin/perl -wl
sub x { last }
for(1 .. 3) {
    print;
    x();
}
print "done";