Select Code to Download

foreach my $file2(@file2only) {
    unless (($file2 =~ "tmp") 
...
        print OUT $file2;
        }
}

foreach my $file2 (@file2only) {
    my $flag = undef;
...
    }
    print OUT $file2 unless ($flag eq 'skip');
}