package foo;

use strict;
$^W = 1;
print "Testing\n", undef; 

1;
__END__

use strict;
use foo;

print "Testing\n", undef;

##</code><code>##

local $^W = 1;