It seems that you can't connect to the specified mail server, so the Net::SMTP object isn't created. You should check the return value of new:

$smtp = Net::SMTP->new('smtpmail.server.com')
   or die "Couldn't connect to SMTP server\n";
[download]

Make sure you have acces to the server.