Note also that using warnings will actually cause a warning to be issued when you do this sort of thing. Use of strictures is irrelevant to prototypes.

>perl -le
"use strict;
 Sa(1);
 sub Sa () { print 'Sa: ', $_[0] }
 use warnings;
 Sb(2);
 sub Sb () { print 'Sb: ', $_[0] }
"
main::Sb() called too early to check prototype at -e line 1.
Sa: 1
Sb: 2
[download]