use HTML::Template;
my $tmpl = HTML::Template->new(filename=>'../htdocs/rems-murr/templates/templ1.html');
my $output = &get_all_unterkunft($dbh);
$tmpl->param("output"=>$output);
....
sub get_all_unterkunft{
my $dbh = shift;
my $output = $dbh->selectall_arrayref("SELECT uname, uort, ukat, upreisinfo, ulogo FROM BETRIEBE", {Slice=>{}});
return $output;
}