#!/usr/bin/perl

$page = $ENV{'QUERY_STRING'};

$output= qq~
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<META NAME="keywords" CONTENT="hack crack hacker security law хакер безопасность закон право">
<META NAME="description" CONTENT="HackZone - территория взлома">
<title>HackZone</title>
</head>
<frameset frameborder="0" framespacing="0" border="0" rows="30,*,14">
    <frame marginwidth="0" marginheight="0" src="top.html" name="top" scrolling="no" noresize>
    <frameset cols="138,*">
        <frame marginwidth="0" marginheight="0" src="cont.html" name="contents" scrolling="no" noresize>
        <frame src="$page" name="main" noresize>
    </frameset>
    <frame marginwidth="0" marginheight="0" src="bottom.html" name="bottom" scrolling="no" noresize>
  <noframes>
  <body bgcolor="#FFFFFF">
  Your browser doesn't support frames. You can view some of our materials on the following pages:
  <a href="main.html">Main page</a>
  <a href="cont.html">Contents</a>
  </body>
  </noframes>
</frameset>
</html>

~;

print "Content-type: text/html\n\n";
print $output;