open my $fh, '<', $file or die $!;
{ local $_; print while <$fh>; }
close $fh;