use strict; 

my ($count, $datum, $vorname, $name, $tt, $mm, $jj);
my $datei = "gebtag"; 
my ($sek,$min,$std,$tag,$mon,$jahr) = localtime(time);
$mon++; $jahr += 1900;  

print "Heute ist $tag.$mon.$jahr\n"; 

$count = 0; 
open (GEB, $datei) || die "Kann $datei nicht öffnen: $!\n";
while (<GEB>) 
  {
  chomp; 
  # Kommentarzeilen erlauben
  next if (/^#/); 
  # Zeile auftrennen in Datum Vorname Name
  ($datum,$vorname,$name) = split(/:/,$_);
  # Datum auftrennen in Tag, Monat, Jahr
  ($tt,$mm,$jj) = split(/\./,$datum); 
  # Punkt ist spezielles Zeichen in reg. Ausdrücken, daher '\.'
                               
  if ($tt == $tag && $mm == $mon)
    { 
    print "$vorname $name hat heute Geburtstag ($jj).\n"; 
    $count++; 
    } 
  } 
close GEB; 
if ($count == 0) 
  { print "Heute hat keiner Geburtstag.\n"; } 
else 
  { print "Heute haben $count Person(en) Geburtstag.\n"; }