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