Select Code to Download

#!d:\perl\bin\perl.exe -w
use strict;
use CGI;
...
}

}

while(<FH>){
    chomp;
    ($login, $junk_file) = split(/\|\!\!\|/);
...
        $exact_file ="$junk_file";
    }
}