>perl -wMstrict -le
"sub S ($);
 S('foo');
 sub S ($) { print $_[0], '-totyped subroutine' };
"
foo-totyped subroutine

>perl -wMstrict -le
"
 S('foo');
 sub S ($) { print $_[0], '-totyped subroutine' };
"
main::S() called too early to check prototype at -e line 1.
foo-totyped subroutine