my $msg = MIME::Lite->new(
                    From    =>'me@myhost.com',
                    To      =>'mehomeemail@myhost.com',
                    Subject =>'Test Message',
                    Type    =>'multipart/mixed'
          );
# Add the text message part:
        $msg->attach(Type     =>'TEXT',
                    Data     =>"Here goes"
                    );

        # Add the image part
        $msg->attach(Type     =>'image/gif',
                    Path=>'/foo/baa.gif',
                    Disposition => 'attachment'
                    );
        # send it

        $msg->send();