use strict;
use Net::Msmgr::Session;
use Net::Msmgr::User;
use Net::Msmgr::Switchboard;
use Net::Msmgr::Conversation;


my $session = new Net::Msmgr::Session;
my $user = Net::Msmgr::User->new( user=> 'test@hotmail.com',
                             password => 'password' ) ;

my $sb = Net::Msmgr::Switchboard->new(ssid => 1);
my $ssid = $sb->ssid;
my $message = qq{MIME-Version: 1.0
Content-Type: text/plain;
	charset="windows-1255"
Content-Transfer-Encoding: quoted-printable

Hi,
This is a test message.};

my $conversation = Net::Msmgr::Conversation->new(session => $session,
    switchboard => $sb,
    email => {'somebody@hotmail.com'});
 
$session->user($user);
$session->Login;

print "Login Successful\n";
$conversation->send_message($conversation, $message);