#!/usr/bin/perl -w use strict; use Env; print "Content-Type: text/plain\r\n\r\n"; print "User-agent: *\n"; if( $ENV{HTTP_HOST} =~ /www\.e\-?target\.ru/i ) { print "Disallow: /img/\nDisallow: /inc/\nDisallow: /i/\nDisallow: /download/\nDisallow: /cgi-bin/\n"; } else { print "Disallow: /\n"; }