Select Code to Download

open(my $foo,'<+ /dev/null');
#old
...
$foo->read($input, 1024) unless $foo->eof;
@stats = $foo->stat;
$foo->close;

$ perl -le 'STDIN->close()'
Can't locate object method "close" via package "IO::Handle" at -e line
+ 1.

perl -le '{package STDIN;sub close{print "case closed"}} STDIN->close(
+)'

perl -le '{package STDIN;sub close{print "case closed"}} "STDIN"->clos
+e()'

perl -le '{package STDIN;sub close{print "case closed"}}my $foo="STDIN
+"; $foo->close()'

perl -Mstrict -Wle '{package STDIN;sub close{print "case closed"}}my $
+foo="STDIN"; $foo->close()'

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc