$msg = MIME::Lite->new(
      From     =>"Me",
      To       =>'Someone',
      Subject  =>'Zip Files',
      Type     =>'Application/zip',
      Encoding =>'base64',
      Path     =>'Dummy.zip'
                     );
    $str = $msg->as_string;
    
    #$smtp = Net::SMTP->new("mailhost");

    $smtp->mail($ENV{USERNAME});
    $smtp->to(you@you.com);
    
    $smtp->data();
    $smtp->datasend($str);
    $smtp->dataend();
    
    $smtp->quit;