File Perl

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