>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