1#!/usr/bin/perl 2# 3# $Id: mail.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 15my @email = ("jakob\@kirei.se", "hostmaster\@n6.schlyter.se", 16 "invalid-user\@schlyter.se"); 17 18foreach my $x (@email) { 19 $check->mail->test($x); 20} 21