#!/Perl print "Hello, World...\n"; ### sendmail01.pl my $from_address = 'geoffmclane@yahoo.com'; my $to_address = 'goeffmclane@hotmail.com'; my $body = 'test of directly send mail via perl ...'; use Mail::Mailer; $mailer = Mail::Mailer->new(); $mailer->open({ From => $from_address, To => $to_address, Subject => $subject, }) or die "Can't open: $!\n"; print $mailer $body; $mailer->close();