in reply to Sending mail in windows
$sObjMail = Win32::OLE->new('PAINET.MAILMSG');
$sObjMail->SetFrom("From\@me");
$sObjMail->AddTo("To\@you");
$sObjMail->SetSubject("A mail");
$sObjMail->SetBody("Hello");
$sObjMail->Deliver();