Select Code to Download

use strict;
use warnings;
...
}
# gives warning message:
# main::foo() called too early to check prototype ...

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