use strict;
use warnings;
foo(2,3,4);
sub foo($$$) { print "@_", $/ }
__OUTPUT__
main::foo() called too early to check prototype at - line 3.
2 3 4