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