Select Code to Download

open (FH, "< $file") or die "Can't open $file for read: $!";

open (my $fh, "<", $file) or die "Can't open $file for read: $!";