open(my $foo,'<+ /dev/null');
#old
select($foo); $|=1; select(STDOUT);
print $foo "|<3wl! 31337 d00d!";
printf $foo "%.02f", $money;
$fd = fileno $foo;
read($foo, $input, 1024) unless eof $foo;
@stats = stat $foo;
close $foo;
#new
$foo->autoflush(1);
$foo->print("|<3w1! 0bj3ct 0r13nt3d f1l3h4ndl3z! l33t!");
$foo->printf("%.02f", $money);
$fd = $foo->fileno;
$foo->read($input, 1024) unless $foo->eof;
@stats = $foo->stat;
$foo->close;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$"=$,,$_=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