print do {use autodie; open my $fh, '<', 'test.txt'; local $/ = undef; <$fh>};