use strict;
sub foo{print "Foo\n"}
foo;
bar; #produces error!
sub bar{print "Bar\n"}
__END__
Bareword "bar" not allowed while "strict subs" in use at D:\temp\order.pl line 4.
Execution of D:\temp\order.pl aborted due to compilation errors.