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