SMTP

[scuba]

Hi,

<?

$ServerName = "smtp.mail.ns.sympatico.ca";

/ Connect to the server /
$smtp = Net::SMTP->new($ServerName,Debug => 1);
die "Couldn't connect to server" unless $smtp;

$MailFrom = "[e-mail]";
$MailTo = "[e-mail]";

$smtp->mail( $MailFrom );
$smtp->to( $MailTo );

Start the mail

$smtp->data();

Send the header.

$smtp->datasend("To: [e-mail]");
$smtp->datasend("From: [e-mail]\n");
$smtp->datasend("Subject: Updates To My Home Page\n");
$smtp->datasend("\n");

Send the message

$smtp->datasend("Hello World!\n\n");

Send the termination string

$smtp->dataend();

$smtp->quit();

?>

I get an error on this line:$smtp = Net::SMTP->new($ServerName,Debug => 1);

is it the :: that making this happen?

Steve