Select Code to Download

open my $data, '+<', $INFILE1 or die "can't open\n$INFILE1\n";
    while (<$data>) {
...
    ...
    close $data or die "can't close\n$INFILE1\n"; 
}