# Perl script to send mail on deliver complete.

package SendMail;
use Config;
use Mail::Send; 
@ISA = qw(Mail::Send); 
sub open {
my $me = shift;
my $how; # How to send mail
my $notused;
my $mailhost; 
# On Windows use SMTP 
if ($Config{'osname'} eq 'MSWin32') {
$how = 'smtp';
$mailhost = "smtp.dev.xxxxxxxx.com";
} 
# else use defaults supplied by Mail::Mailer 
Mail::Mailer->new($how, $notused, $mailhost)->open($me);
} 
#
##################################################################
# Main program 
my @to = "zzzz@dev.xxxxxxxxx.com";
my $subject = "Delivery complete"; 
my $body = join '',( "this is testing from perl in windows");
my $msg = new SendMail(Subject=>$subject); 
$msg->to(@to);
my $fh = $msg->open($me);
$fh->print($body);
$fh->close();
1; # return success
#
##################################################################