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