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();

##</code><code>##

Dim cp As Object
Set cp = CreateObject("CDONTS.NewMail")
With cp
     .To = "test@test.com"
     .From = "test@test.com"
     .Subject = "test"
     .Body = "test"
     .Send
End With