Select Code to Download

foreach my $line(@lines){
    warn "Trying to attach file [$line]";
...
                 );
}
$msg->send;

chomp @lines;