use autodie;
open my $fh, '<', $myfile;
while (<$fh>) {