Dear Floptop or Bradley or whoever,
I am brand new at this.  I looked up Net::SMPT and found an example.
For a test I filled in the blanks with what I thought should go in.
Is this correct? Should the following work?


#!/usr/local/bin/perl -wT

use Net::SMTP;

$smpt = Net::SMPT->new('smtp.his.com');
$smpt->mail($ENV{USER});

$smtp->to('[EMAIL PROTECTED]");
 $smtp->data();

 $smtp->datasend(To: Helen\n);
 $smtp->datasend("\n");
 $smtp->datasend("testing SMPT\n");
 $smtp->dataend();
 $smtp->quit;




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to