Please see the below two programs to send mail through perl using activeperl on windows.

The first uses Mail::Sendmail and the second uses MIME::Lite.

use Mail::Sendmail;

my $MailFrom = 'test@gmail.com';
my $to_list  = 'john@gmail.com';
my $cc_list  = 'frank@yahoo.com';
my $subject  = "hello test";
my $message  = "This email was generated automatically.\n";

sendmail(
    Smtp => 'mailtest.gmail.com',
    From    => $MailFrom,
    To      => $to_list,
    Cc      => $cc_list,
    Subject => $subject,
    Message => $message,
);

[download]

use MIME::Lite;

MIME::Lite->send('smtp', "mailtesthub.gmail.com", Timeout=>90);

my $MailFrom = 'test@gmail.com';
my $to_list  = 'john@gmail.com';
my $cc_list  = 'frank@yahoo.com';
my $subject  = "hello test";
my $message  = "This email was generated automatically.";

my $msg = MIME::Lite->new(
    From     => $MailFrom,
    To       => $to_list,
    Cc       => $cc_list,
    Subject  => $subject,
    Type     => 'TEXT',
    Encoding => '7bit',
    Data     => $message,
);
$msg->send()

[download]

MIME::Lite works on Windows. If you have a sendmail program installed, you can use that:

MIME:Lite->send( 'sendmail', "d:\\programs\\sendmail.exe" );
[download]

A few non-Perl, Yahoo!-specific things to consider:

• Sign up in the POP Access and Forwarding section of Options.
• 'Need Help?' for POP3 access tells you what you need to use this access (server names, etc.)
• You must authenticate when you send SMTP messages via their service.

As for Perl, TIMTOWTDI. The combination of Mail::Sender (for the SMTP) and Mail::POP3Client (for the authentication) may work with Yahoo! mail without the need for SendMail. Both are available on ActiveState's PPM Package Repository.

When facing similar things, I use the smtp method of Mail::Mailer (which depends on elements of the Net bundle).

The following example sends an e-mail composed from a terminal window. Obviously you'd need to configure the variables to your situation.

use Mail::Mailer;

print "\nTo: ";
$dest = <>;
chomp $dest;

print "Subject: ";
$subj = <>;
chomp $subj;

print "\nBody:\n";
$body = <>;

$mailer = Mail::Mailer->new( 'smtp', Server => 'pilot.msu.edu' );

$mailer->open( {
    From    => 'Mr Grits <moranjon@pilot.msu.edu>',
    To      => $dest,
    Subject => $subj,
} )
    or die "mailer->open failed: $!\n";

print $mailer $body;

$mailer->close;

[download]