package err; open (FILE, ") { ($key,$val) = ($line =~/^(\S*)\s*=\s*(\S*)/); if ($key ne "") { $conf{$key}=$val } } close FILE; sub error_seite{ print "Content-type: text/html\n\n", "ERROR\n", "\n", "
\n", "\n", "



\n", @_[0], " \n

\n", @_[1], "

http://www.prorata.de
", "
\n\n\n"; exit; } 1;