#!/usr/bin/perl

# mails emails with Attachments
# 20 packages

use MIME::Lite;
foreach $e (1..20)
{ 
$msg = MIME::Lite->new(
                     From    =>'someone@somewhere.com',
                     To      =>'someone_else@somewhere_else.com',
                     Subject =>'Some topic',
                     Type    =>'TEXT',
                     Data    =>"Want this?? part $e"
                     );

        ### Attach a part:
        $msg->attach(Type     =>'Application/ZIP',
                     Path     =>"somezip-$e.zip",
                     Filename =>"somezip-$e.zip"
                     );
$msg->send; 
print "Sending part $e\n";
}