use FileHandle;
 
$fh = new FileHandle;
if ($fh->open("< file")) {
 print <$fh>;
 $fh->close;
}