while($ref = $sth->fetchrow_hashref()) { 
	
....	
....
....	
   
my ($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twday,$tyday,$tisdst) = localtime($ref->{'time'});
   &woche;
   $tyear = $tyear + 1900;
   $tmon = $tmon + 1;
   if ($tmday < 10) {$tmday = "0" . $tmday};
   if ($tmon < 10) {$tmon = "0" . $tmon};   
   



sub woche
 {
 $twday =~ s/0/Sonntag/;
 $twday =~ s/1/Montag/;
 $twday =~ s/2/Dienstag/;
 $twday =~ s/3/Mittwoch/;
 $twday =~ s/4/Donnerstag/;
 $twday =~ s/5/Freitag/;
 $twday =~ s/6/Samstag/;
}
	
  
   $template->param(DATUM => "$tmday.$tmon.$tyear");
   $template->param(WOCHENTAG => $twday);
...
..
.   

};

my %dayhash = (0 => 'Sonntag',
   1 => 'Montag',
   2 => 'Dienstag',
   3 => 'Mittwoch',
   4 => 'Donnerstag',
   5 => 'Freitag',
   6 => 'Samstag');

while($ref = $sth->fetchrow_hashref()) { 
[...]
  my ($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twday,$tyday,$tisdst) = localtime($ref->{'time'});
  $twday = $dayhash{$twday};
[...]
}

my %dayhash = (0 => 'Sonntag',
   1 => 'Montag',
   2 => 'Dienstag',
   3 => 'Mittwoch',
   4 => 'Donnerstag',
   5 => 'Freitag',
   6 => 'Samstag');