# send data to template
my @root_loop = &get_roots;
my $template = HTML::Template->new(filename => 'Digbeta/digauthform.tmpl', die_on_bad_params => 0);
$template->param(root_loop => @root_loop);
print $template->output;