Select Code to Download

print "a";
BEGIN { print "b"; }
print "c";

foo('bar');

sub foo($) {
    print "foo called: @_\n";
}

sob foo($);

...
sub foo($) {
    print "foo called: @_\n";
}