my $x = <$f>;
$! and croak "can't read mydata.txt: $!";
##</code><code>##

open my $fh, '<', 'mydata.txt' or die $!;
defined( my $data = do { local $/; <$fh> } ) or die $!;
close $fh or die $!;

##</code><code>##

open my $fh, '<:raw', 'mydata.txt' or die $!;
my $size = -s $fh;
read($fh, my $data, $size) == $size or die $!;
close $fh or die $!;