use Win32::OLE   qw(with);
my $Message = Win32::OLE->new("CDO.Message");

$Message->{From}="a\@b.c";
$Message->{To}="b\@b.c";
$Message->{Bcc}="c\@b.c";
$Message->{Subject}="test subj";
$Message->{TextBody}="ahahahahahah\n\ndjhdjkfhdasjkfh";
$Message->Send()||die $Win32::OLE::LastError,$^E;