Perl doesn't include built-in emailing functions.  On Unix or Linux boxes, I've always put in calls to the local sendmail program and that works just fine, but there's no sendmail on Microsoft boxes ...

Alternative - use a CPAN module (or rather a module that you can download with ppm);   here's the "engine" of a program that I wrote a s demo in the last couple of days:

Code:

use Mail::Sendmail; %mail = (To => 'graham@sheepbingo.co.uk', From => 'Graham Ellis <graham@wellho.net>', Message => "First line\nSecond line\netc\n", Subject => "Perl email from Windows", Reply-to => 'graham@wellho.net', smtp => 'lightning.he.net'); $aok = sendmail(%mail);

See Complete example and further documentation

You might also use MIME::Lite (also up on CPAN) if you need to attach files to your email. We use this for firing off server logs to a central email account (which we then ignore like all good sysadmins )

Code:

use MIME::Lite; my($mailServer) = 'smtp.company.com'; my($mailFrom)   = 'adrian@mycompany.com'; my($mailTo)      = 'someoneelse@mycompany.com'; my($realName)   = "Adrian"; my($subject)    = "Subject of message"; my($body)      = "Body of message" my ($file)      = "c:\\temp\\file.fil"; my $msg = MIME::Lite->new(      From=>"$mailFrom",      To => "$mailTo",      Subject=>"$subject",      Type=>'multipart/mixed');      $msg->attach(      Type      =>'TEXT',                  Data      =>"$body");                  $msg->attach(      Type      =>'TEXT',                        Path      =>"$file",                        Disposition => 'attachment'); MIME::Lite->send('smtp', "$mailServer",Timeout=>60); $msg->send;

Wow - finally I've contributed something back to OpenTalk (well hopefully anyway). I've been feeling guilty about all the unrequited help I've had from here over the years...

---