open FILE, "<", $myfile or die "No open $!\n";

##</code><code>##

open my $fh, '<', $myfile or die "No open $!\n";
while (<$fh>) {

##</code><code>##

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