perl -we 'use IO::Handle; { package IO::Handle; sub import { warn "import called on handle $_[0]"; } } if (0) { open strict; } BEGIN { warn "about to use strict"; } use strict; BEGIN { warn "after use strict"; } use warnings;'