#!/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";

}