One-way Web Hacking

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: $!";
select(S);
$| = 1;
select(STDOUT);
sub post {
my ($file, $hostname, $port, $content_length, @commands) = @_;
my $i;
# check for proxy settings
if($proxy_flag) {
}
$file = "http://" . $hostname . ":" . $port . $file;