check-mail-addr.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl
use warnings;
use strict;
use Mail::CheckUser qw(check_email last_check);
use File::Basename;

if(@ARGV != 1) {
  print "usage: ", basename($0), " <emailaddress>\n";
  exit 2;
}

if(check_email($ARGV[0])) {
  exit 0;
} else {
  print last_check()->{reason}, "\n";
  exit 1;
}