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