BEGIN {print ">> BEGIN statement\n"}

print ">> program execution\n";

sub routine {
    print ">> inside a sub ", @_, "\n";
}

&routine("[called from top level]");

END   {print ">> END statement\n"}