Shell Programming and Scripting

C:\Documents and Settings\Zedex>ping smtp.gmail.com

Pinging gmail-smtp.l.google.com [209.85.147.111] with 32 bytes of data:

Reply from 209.85.147.111: bytes=32 time=261ms TTL=236
Reply from 209.85.147.111: bytes=32 time=261ms TTL=236

#! /usr/bin/perl -w
use EasyMail ;
use strict ; 

my $mail = {
             'sender_type'  => "SMTPAUTHLOGIN" ,
	     'smtp_host'    => "209.85.147.111" ,
	     'smtp_port'    => "465",
	     'smtp_usr'     => "myid\@gmail.com",
	     'smtp_pass'    => "pass",
	     'type'         => "plain",
	     'subject'      => "Test Mail",
	     'body'         => "This is a test message from unix sent with EasyMail",
	     'from'         => "myid\@gmail.com",
	     'to'           => "testid\@abc.com",
	     'cc'           => "test1\@abc.com",
	     'src_encoding' => "NONE",
	     'dst'          => "un"
	  };
print "Message formed now sending ...\n" ;
EasyMail::sendmail($mail) ;
print "Mail sent ...\n" ;
if ( defined($mail->{'error'})){
    print "Mail sending failed....\n" ;
}