Select Code to Download

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

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

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