$ perl -wl
use strict;
BEGIN { return 1; }
print "foo";
__END__
foo