{ local $/ = undef; open my $fd, '<', 'file' or die "open: $!"; my $txt = <$fd>; close $fd; }