use File::Slurp;
$file = read_file($filename);