Select Code to Download

while (my $line = <F>)
{
...
        last;    # breaking while loop 
    }
}

open (F, "$dir/$filename") || die ("Could not open $filename");

...
        ...
    }
}

open(my $F, '<', "$dir/$filename) or die "Cannot open file '$dir/$file
+name' for reading: $!";

...
}

close $F or die "Cannot close file '$dir/$filename': $!";