open O, '>', 'nul' or die $!;;
defined( $s = readline( O )) or die $!;;
Filehandle O opened only for output at (eval 11) line 1.