use IO::File;$filehandle = new IO::File;if ($filehandle->open(" print <$filehandle>; undef $filehandle;}