Select Code to Download

$ perl -le "sub f($$@@){warn qq{@_}} f(@ARGV,@ARGV,@ARGV); " 1 2 3 4 5
5 5 1 2 3 4 5 at -e line 1.
...
## forward/early/prototype declaration
$ perl -le " sub f($$@@); eval q{sub f($$@@){warn qq{@_}}}; f(@ARGV,@A
+RGV,@ARGV); " 1 2 3 4 5
5 5 1 2 3 4 5 at (eval 1) line 1.

$ echo foo() called too early to check prototype at file line 12 |spla
+in
foo() called too early to check prototype at file line 12  (#1)
    (W prototype) You've called a function that has a prototype before
+ the
...
    checking.  Alternatively, if you are certain that you're calling t
+he
    function correctly, you may put an ampersand before the name to av
+oid
    the warning.  See perlsub.