Select Code to Download

use strict;
use warnings;
use diagnostics;

foreach my $line (@lines) {
   chomp $line;
...
      }      
   }
}