use Win32::OLE;
my $mailer = new Win32::OLE 'CDO.Message';
$mailer->{From} = 'me@example.com';
$mailer->{To} = 'you@example.com';
$mailer->{Subject} = 'subject here';
$mailer->{BodyText} = 'body here';
$mailer->Send();