use MIME::Lite;
my $msg = MIME::Lite->new(
                  From     =>  $from_address,
                  To       =>  $to_address,
                  Subject  =>  'Hello world',
                  Data     =>  'some body text'
	          );
$msg->send;