Select Code to Download

   while ($line = <SH>){
        if($line =~ m/$agent/){
...
     print OUT $line;
     print $line;
    }

   while ($line = <SH>){
        if($line =~ m/$agent/){
...
     print $line;
    }