sendmail01.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:55 2010 from sendmail01.pl 2008/05/05 768.

#!/Perl
### sendmail01.pl
use Mail::Mailer;
print "Hello, World...\n";
my $from_address = '';
my $to_address = '';
my $body = 'test of directly send mail via perl ...';
$from_address = get_from();
$to_address = get_to();
$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();
sub get_from {
   my $frm = 'geoff';
   $frm .= 'mclane';
   $frm .= '@';
   $frm .= 'yahoo';
   $frm .= '.';
   $frm .= 'com';
   return $frm;
}
sub get_to {
   my $to = 'geoff';
   $to .= 'mclane';
   $to .= '@';
   $to .= 'hotmail';
   $to .= '.';
   $to .= 'com';
   return $to;
}
# eof - sendmail01.pl

index -|- top