my $slurp;
{
local $/ = undef;
open my $textfile, '<', 'filename.txt' or die $!;
$slurp = <$textfile>;
close $textfile;
}