#!/usr/bin/perl
    use MIME::Lite;
    my $user = "admin\@mars-concept.com";
    my $pass = "********";
    ### Create a new single-part message, to send a GIF file:
    my $msg = MIME::Lite->new(
        From     => 'admin@mars-concept.com',
        To       => 'admin@mars-concept.com',
        Cc       => 'some@other.com, some@more.com',
        Subject  => 'Helloooooo, nurse!',
        Type     => 'image/gif',
        Encoding => 'base64',
        #Path     => 'hellonurse.gif'
    );
     MIME::Lite->send('smtp','mars-concept.com',
       AuthUser=>$user, AuthPass=>$pass);