sub dienice { print "Content-type: text/html\n\n" unless $header_printed; $header_printed = 1; my(@msg) = @_; print "