Select Code to Download

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