One-way Web Hacking

## uncomment the while loop below
## to suppress the HTTP headers in the response
#while() { # header
# last if($_ eq "\r\n");
#}
while() { # body
}
print $_;
close(S);
exit;
sub httpconnect {
my ($server, $port) = @_;
# check for proxy settings
if($proxy_flag) {
}
$server = $proxy_ip;
$port = $proxy_port;
chop($hostname = `hostname`);
$proto = getprotobyname('tcp');
$thisaddr = gethostbyname($hostname);
$thataddr = gethostbyname($server);
$sin = sockaddr_in($port, $thataddr);
socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(S, $sin) or die "connect: $!";