Select Code to Download

#! /usr/bin/perl -w 
use strict; 
use Socket; 
...
my $client_host = gethostbyaddr($client_ip, AF_INET); 
print "got a connection from: $client_host","[$client_ipnum] ";
}

#!/usr/bin/perl
use HTTP::Proxy;
my $proxy = HTTP::Proxy->new;
$proxy->port( 7890 ); 
$proxy->logmask( shift || NONE );$proxy->start;