use Net::SMTP;
my $smtp_server='mail.webchalkboard.com';
my $smtp = Net::SMTP->new($smtp_server) or die "Failed:$!";

##</code><code>##

my $smtp = Net::SMTP->new('mail.webchalkboard.com') or die "Failed:$!";