my $heute = get_date();
print $heute,"\n";

sub get_date{
  my $year = ((localtime(time))[5] + 1900);
  my $month = ((localtime(time))[4] + 1);
  my $day = (localtime(time))[3];
  my $date = sprintf("%02d.%02d.%04d",$day,$month,$year);
  return $date;
}# end of subroutine