#!/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 < Cocos isl. <body bgcolor="#FFFFFF" text="#000000"> </body> HTML ;