#!C:/Perl/bin/perl.exe
use Mail::Sendmail;
my $to_list = 'chmunive@xxxx.com';
my $cc_list = 'satishjagu@xxxx.com';
my $email = "\n\nThis email was generated automatically.\n";
my $MailFrom = "chmunive@xxxxx.com";
my $subject = "hello test";
my $message = "module test";
%mail = (
To => $to_list,
From => $MailFrom,
Bcc => $bcc_list,
Cc => $cc_list,
Subject => $subject,
Message => $message
);
$mail{Smtp} = 'smtp host name';
sendmail(%mail);