sub dienice {
    my($msg) = @_;
    print "<h2>Error</h2>\n";
    print "$msg\n";
    exit;
}