RE: Help Me with shell script please

["Ben Yau" <byau cardcommerce com>]

>
> Nevertheless, I'm going to lay this out for you, just so you can't say I
> never explained Mail::Internet.
>
> =================================================
> #!/usr/bin/perl
>
> use strict;
> use Mail::Internet;
>
> my $head = Mail::Header->new(Modify => 1);
> $head->add(From => 'joe localhost');
> $head->add(To => 'jane somewhere');
> $head->add(Subject => 'Just a test mail');
> $head->add(Sender => 'joe localhost');
>
>
> my $body .= "Message goes here.";
> my $mail = Mail::Internet->new(Header => $head,
> 				Body => [$body],
> 				Modify => 1,
> );
> my $success = $mail->smtpsend(Host => 'smtp.localhost.com', Hello
> => 'localhost.com');
>
> # EOF
> ================================================
>

Thanks.  That is what I was looking for, an example (with sample function
calls and sample syntax).

Ben