Select Code to Download

$max_num_files  ||= 1;
$Photo_Dir      ||= $ENV{'DOCUMENT_ROOT'};
...
for(my $a = 1; $a <= $max_num_files; $a++) {
    my $req = new CGI;
    ...

use strict;
use CGI;
...
        close INFILE;
    }
}