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);
...
..
.   

};