foreach my $line(@lines){
    warn "Trying to attach file [$line]";
    $msg->attach(Type     =>'image/gif',
                 Path     =>"/u619/be/bon/uploads/$line",
                 Filename =>"$line",
                 Disposition => 'attachment'
                 );
}
$msg->send;