#!perl -w
 
use Net::SMTP; 
use  Net::SMTP_auth;

my $serverName = "smtp.ym.phub.net.cable.rogers.com";

$smtp = Net::SMTP_auth->new($serverName, Timeout => 30, Debug =>1); 
$smtp->auth('levalt@rogers.com', '123456');
 
my $mailFrom = "levalt\@rogers.com";
my $mailTo = "levalt\@rogers.com";
$smtp->mail( $mailFrom );
$smtp->to( $mailTo );
 
$smtp->data();
$smtp->datasend("Subject: Updates To My Home Page\n");
$smtp->datasend("\n");
$smtp->datasend("Here are all the cool new links...\n\n");
$smtp->dataend();
$smtp->quit();