Select Code to Download

 if ($nooatt > 0){
    $sender->OpenMultipart({
...
           file => "$attachment[$x]"});
       die "Error: $Mail::Sender::Error\n" unless ref $sender;
    }