eval
{
        local $SIG{ALRM} = sub { die "timeout" };
        alarm(10);
        webserverdialog($uname, $pw, $log);
        alarm(0);
};
if ($@)
{
  print "Timeout!!";
}
else {
  print STDOUT "Alles klar!\n";
}