Re^2: Send e-mail using perl

[rbala]

Hi,

Thanks for your code.

Sorry for not mentioning the OS . I use linux ubuntu- 12.04.

Before trying this code, I just wanted to learn how to configure my mail server in linux , before running the code. I just tried the following code by doing the configuration as given in the CPAN documentation of Mail::Sendmail module.

#! /usr/bin/perl -w

use Mail::Sendmail;
use Mail::Sendmail qw(sendmail %mailcfg);

$mail{smtp} = qw(imap.googlemail.com);
$mail{port} = 993;
%mail = ( To => '[e-mail]',
From => '[e-mail]',
            Message => 'This is a very short message'
           );

if ( sendmail(%mail) ) {
    print "OK.\n";
} else {
    die $Mail::Sendmail::error;
}
print "OK. Log says:\n", $Mail::Sendmail::log;

Upon running this code, process continuously runs without any result.....What might be the problem with this code.?