#!/usr/bin/perl

$url="/dog/services/links/tree.pl";
$query=$ENV{QUERY_STRING};
if($query){
	$url=$query;
	}
print"Content-type:text/html; charset=windows-1251\n\n";

print <<HTML;

<html>
<head>
<title>Cocos isl.</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<frameset cols="150,*" frameborder="NO" border="0" framespacing="0"> 
  <frame name="lefteng" scrolling="NO" noresize marginwidth="0" marginheight="0" src="../st_left/english_menu2.htm">
  <frameset rows="57,*" frameborder="NO" border="0" framespacing="0"> 

    <frame name="topFrame" noresize scrolling="NO" src="/st_fraim/eng1_top.htm" frameborder="NO" marginwidth="0" marginheight="0">
  <frame name="mainFrame" src="$url" marginwidth="0" marginheight="0">

  </frameset>

</frameset>
<noframes> 
<body bgcolor="#FFFFFF" text="#000000">
</body>
</noframes> 
</html>



HTML
;

