my $data;
$file = "myfile.dat";
{
local $/;
open SLURP, $file or die "can't open $file: $!";
$data = <SLURP>;
close SLURP or die "cannot close $file: $!";
}
my $data;
$file = "myfile.dat";
{
local $/;
open SLURP, $file or die "can't open $file: $!";
$data = <SLURP>;
close SLURP or die "cannot close $file: $!";
}