#!/usr/bin/perl
# modernes perl erzwingen:
use strict;
use warnings;
# Module laden:
use CGI; # Das Script ist ein CGI
use Net::DNS; # DNS Abfragen

# init der Module
my $cgi=CGI->new();
my $dns=Net::DNS::Resolver->new();

# CGI Header ausgeben
print $cgi->header();

# ab hier ist es die 1-1 Umsetzung:
if($cgi->param('mail'))
{
  my $addr=$cgi->param('mail');
  my ($user,$host)=split('@',$addr);
  if($dns->query($host, 'MX') or $dns->query($host, 'A'))
  {
    print "1\n";
  }
  else
  {
    print "0\n";
  } 
}
else
{
  print "0\n";
}

#!/usr/bin/perl
# modernes perl erzwingen:
use strict;
use warnings;
# Module laden:
use CGI; # Das Script ist ein CGI
use Email::Valid;

# init der Module
my $cgi=CGI->new();

# CGI Header ausgeben
print $cgi->header();

my $addr=$cgi->param('mail') || '';
if(Email::Valid->address($addr))
{
  print "1\n";
}
else
{
  print "0\n";

}