I used this small piece of code to mail split up zipfiles (which used to be one 40 meg file). Sending each mail separatly would've taken me longer than to write this script. Splitting of the file was done with zipsplit.
Ofcourse this can be used for mailbombing, but we're all grown ups here :)
#!/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";
}