sub mimetype{
##Unfortunately, I cannot use the correct xhtml1.1 mime-type, because
##some browsers are too incompetent to support XHTML1.1!
##print "content-type:application/xhtml+xml; charset=utf-8\n\n";
print "content-type:text/html; charset=utf-8\n\n";
}
sub header{
$dato = scalar localtime();
print << "HEAD";
$_[0]
harkeyahh.com
HEAD
}
sub menus{
#Begin content and menus
print << "MENU";