#!/usr/bin/perl

use LWP::Simple;
use warnings;
use MIME::Lite;
use Win32::OLE qw(in);

$user = "user\@gmail.com";    
$pass = "password";

$to = "user\@googlemail.com";
$from = "user\@googlemail.com";
$subject = "Email Sent via Perl";
$message = "any thing";

email($to, $from, $subject, $message);

sub email
{
 # get incoming parameters
 local ($to, $from, $subject, $message) = @_;

 # create a new message
 my $msg = MIME::Lite->new(
  From => $from,
  To => $to,
  Subject => $subject,
  Data => $message
 );

 MIME::Lite->send('smtp', 'smtp.gmail.com:465', Timeout => 60,
 AuthUser=>$user, AuthPass=>$pass);
 $msg->send();
}
[download]