<select class="select" name="tag"><option selected="selected">Tag</option><option>01</option><option>02 </option><option>03 </option><option>04 
</option><option>05 </option><option>06 </option><option>07 
</option><option>08 </option><option>09 
</option><option>10 </option><option>11 </option><option>12 
</option><option>13 </option><option>14 </option><option>15 
</option><option>16 </option><option>17 </option><option>18 
</option><option>19 </option><option>20 </option><option>21 
</option><option>22 </option><option>23 </option><option>24 
</option><option>25 </option><option>26 </option><option>27 
</option><option>28 </option><option>29 </option><option>30 
</option><option>31 </option></select> 
 
<select class="select" name="monat"><option value="0" selected="selected">Monat</option><option value="01">Januar</option><option value="02">Februar</option><option value="03">März</option><option value="04">April</option><option value="05">Mai</option><option value="06">Juni</option><option value="07">Juli</option><option value="08">August</option><option value="09">September</option><option value="10">Oktober</option><option value="11">November</option><option value="12">Dezember</option></select> 
 
<select class="select" name="jahr" size="1"><option selected="selected">Jahr</option><option>2009</option><option>2010</option><option>2011</option><option>2012</option><option>2013</option></select> 

if (($INPUT{Vorname}                eq "") || 
    ($INPUT{Name}                   eq "") || 
    ($INPUT{tag}     !~ /^[0-9]*$/) || 
    ($INPUT{monat}   !~ /^[0-9]*$/) || 
    ($INPUT{jahr}    !~ /^[0-9]*$/) || 
    ($INPUT{Email}                  eq "") ) 
{ 
	print "Location: $msg_errmiss\n\n"; 
	exit; 
} 
 
if (($INPUT{Email} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/) || 
    ($INPUT{Email} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)) 
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
} 

print MAIL "Vorname:         $INPUT{Vorname}\n"; 
print MAIL "Name:            $INPUT{Name}\n"; 
print MAIL "Datum:      $INPUT{tag}.$INPUT{monat}.$INPUT{jahr}\n"; 
print MAIL "E-Mail-Adresse:  $INPUT{Email}\n"; 

$day1 = $INPUT{antag}; 
$month1 = $INPUT{anmonat}; 
$year1 = $INPUT{anjahr}; 
 
$day2 = $INPUT{abtag}; 
$month2 = $INPUT{abmonat}; 
$year2 = $INPUT{abjahr}; 
 
($year,$month,$day) = System_Clock(); 

use Date::Calc qw( check_date ); 
 
if ( check_date( $year1, $month1, $day1 )  
{  
	print "Location: $msg_ok\n\n"; 
	exit; 
} 
 else  
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
} 
 
if ( check_date( $year2, $month2, $day2 )  
{  
	print "Location: $msg_ok\n\n"; 
	exit; 
} 
 else  
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
} 

use Date::Calc qw( Date_to_Days ); 
 
if (Date_to_Days($year3,$month3,$day3)  <= 
    Date_to_Days($year1,$month1,$day1)) 
{  
	print "Location: $msg_ok\n\n"; 
	exit; 
} 
 else  
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
} 
 
if (Date_to_Days($year1,$month1,$day1)  <= 
    Date_to_Days($year2,$month2,$day2)) 
{  
	print "Location: $msg_ok\n\n"; 
	exit; 
} 
 else  
{ 
	print "Location: $msg_badmail\n\n"; 
	exit; 
}