...
my $fn = 'data.dat';
my $stuff;
open my$fh, '<', 'data.dat' or die "$fn - $!";
{ local $/; $stuff = <$fh> }
close $fh;
...