File Perl

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