use Win32::OLE;
$cd = Win32::OLE->new("CDONTS.NewMail") || die $!;
$cd->{From}="test\@test.com";
$cd->{To}="test\@test.com";
$cd->{Subject}="test";
$cd->{Body}="test";
$cd->Send;
print Win32::OLE->LastError();