One-way Web Hacking

}
print "By Saumil Shah (c) net-square 2001\n\n";
print "post_cmd.pl takes all the data to be POSTed to the URL as\n";
print "standard input. Either enter the data manually and hit ^D (unix)\n";
print "or ^Z (dos) to end; or redirect the data using files or pipes\n\n";
exit(0);
if($server =~ /\//o) {
}
$server =~ s/http:\/\///o;
$server =~ /(.*?)\/(.*)/o;
$file = '/'. $2;
$server = $1;
else {
}
$file = '/';
if(defined($ARGV[1])) {
}
$file = $ARGV[1];
# capture proxy server
$proxy_flag = 0;
if(defined($ARGV[1])) {
}
($proxy_ip, $proxy_port) = split(/:/, $ARGV[1]);
$proxy_flag = 1;
# take the commands that we need to send at this stage
# Note: if we do not start off the set of commands to be POSTed with