#!/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;