use Net::SMTP;

@verify = ('smtp.host1.tld', 'smtp.host2.tld');

foreach $host (@verify)
{
        $smtp = Net::SMTP->new($host);
        if (ref($smtp))
        {
                print $smtp->banner();
        }
        else
        {
                print "failed $host!\n";
        }
}