On Fri, Dec 20, 2002 at 03:10:16PM +0100, [EMAIL PROTECTED] wrote:
> #!/usr/bin/perl
>
> use Mail::Sender;
> $i = scalar (@ARGV);
>
> $sender = new Mail::Sender
> {smtp => 'server.smtp.com', from => '[EMAIL PROTECTED]'};
> $sender->MailFile({to => '[EMAIL PROTECTED]',
> subject => '$arg[0]',
subject => $ARGV[0],
> msg => "$arg[1]",
msg => $ARGV[1],
> file => '$arg[2]'});
file => $ARGV[2]});
>
> $sender->Close;
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
