1#!/usr/bin/perl 2# 3# $Id: smtp.pl 715 2009-03-04 07:59:46Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use DNSCheck; 10 11###################################################################### 12 13my $check = new DNSCheck({ interactive => 1, extras => { debug => 1 } }); 14 15$check->smtp->test("mail.schlyter.se", "195.47.254.10", "jakob\@schlyter.se"); 16