how about trying a simple:

#!/usr/bin/perl

use warnings;
use strict;

use Net::SMTP;

my $smtp = Net::SMTP->new('smtpmail.server.com');
die "Unable to create smtp!\n$!\n" unless defined($smtp);
$smtp->quit;
[download]

BTW, you might want to change the spelling in your title to be SMTP. ;) (not trying to being anal/picky, but to assist searches)