One-way Web Hacking

# to use this as a generic POST client
$line = "exit\n";
@commands = (@commands, $line);
$content_length += length($line);
# end of block
$| = 1;
($target, $port) = split(/:/, $server);
if($port == 0) {
}
$port = 80;
$server = $target;
httpconnect($server, $port);
post($file, $server, $port, $content_length, @commands);
## 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;