{ local(*INPUT, $/); open (INPUT, $file) || die "can't open $file: $!"; binmode INPUT; # needed if you are on Windows $var = ; }