Hi there,
I just sent posted this example block of code on another node, but I ended up using MIME::Lite to send email through smtp. In this example I sent a tar file

 my $mail = MIME::Lite->new(
 From=> 'me@me.com,
 To=> 'someone@cool.com',
 Subject=> "Hello email ",
 Type=>'multipart/mixed'
 );
 $mail->attach(
 Type => 'application/x-tar',
 Encoding => 'base64',
 Path => 'C:\path\to\file.tar',
 Filename => "file.tar"
 );
MIME::Lite->send('smtp','server.smtp.com',Debug=>0);
$mail->send;
[download]

I am aware that one of the first lines of documentation for this module the author discourages using MIME::Lite. I have also used MIME::Entity in its place. Hope this helps..