use IO::File;
$filehandle = new IO::File;

if ($filehandle->open("<hello.txt")) {

    print <$filehandle>;

    undef $filehandle;
}