use strict;
use warnings;
use Date::Calc qw( Decode_Date_EU Today leap_year Delta_Days );

print "Bitte Geburtstag eingeben: ";
my $date = <STDIN>;

my ($jahr1, $monat1, $tag1) = Decode_Date_EU($date);
my ($jahr2, $monat2, $tag2) = Today();

if(($monat1 == 2) && ($tag1 == 29) && !leap_jahr($jahr2))
   { $tag1--; }
my $delta = Delta_Days($jahr2,$monat1,$tag1, $jahr2,$monat2,$tag2);

if(($jahr2 - $jahr1) >  18)
   { print "OK\n"; }
elsif((($jahr2 - $jahr1) == 18) && ($delta >= 0))
   { print "OK\n"; }
else
  { print "FAIL\n"; }