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

Attention:

\n"; print join("
\n",@msg); exit; }