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