А можно заставить wget не скачивать страницы из rejlist?

#!/usr/bin/perl
#  Simple HTTP Proxy Program using HTTP::Daemon.
#  (c) 2007 by Takaki Makino  http://www.snowelm.com/~t/

use strict;
use warnings;

use HTTP::Daemon;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $d = HTTP::Daemon->new( 
	LocalHost => "localhost",  # remove this to listen from other machines 
				   # (i.e. open-relay... be careful of spammers!)
	LocalPort => 8080
) || die;
print "[Proxy URL:", $d->url, "]\n";

$SIG{PIPE} = 'IGNORE';
$SIG{INT} = sub { $d->close; $ua->close; };

while (my $c = $d->accept) {
	while (my $request = $c->get_request) {
		my $url = $request->uri->as_string;
		if ($url =~ ".com/\$" || $url =~ "html\$" || $url =~ ".com/?skip") {
			print $c->sockhost . ": " . $request->uri->as_string . "\n";
			$request->push_header( Via => "1.1 ". $c->sockhost );
			my $response = $ua->simple_request( $request );
			$c->send_response( $response );
		} else {
			print "REJECTED: " . $request->uri->as_string . "\n";
			$c->send_response( HTTP::Response->new( 404 ) );
		}
	}
	$c->close;
	undef($c);
}