code:

#!C:\Perl\bin -w

use Mail::Mailer;

$from_addr = "<from\@domain.com>";
$to_addr = "<to\@domain.com>";
$subject = "testing sendmail on windows";
$msg_body = "just testing";  

# Create a new instance of sendmail program to deliver the mail

$mailer = Mail::Mailer->new();

# Header of the message
$mailer->open({  From   =>  $from_addr,
	                    To     =>  $to_addr,
		                 Subject    =>  $subject,
                 })
            or die "Can't open: $!\n";

# Print the body of your message
    print $mailer $msg_body;

# Close  the Mail::Mailer object
    $mailer->close() or die "Can't close mailer: $!\n";