use Socket;
$|=1;
die "\narguments: <host> <port> <request>\n" if(!$ARGV[1]);
$peer = $ARGV[0];
$port = $ARGV[1];
$str = "GET ".$ARGV[2]." HTTP/1.0";
$inet=inet_aton($peer);
@MUNGO=();
$val=0;
print "\n$str\n\n";
sendraw("$str\n\n");
print "\n",@MUNGO,"\n";
sub sendraw {
#
my ($pstring)=@_;
$PROTOCOL=getprotobyname('tcp')||0;
(die "\nno socket???\n") if(!(socket(S,PF_INET,SOCK_STREAM,$PROTOCOL)));
if(connect(S,pack "SnA4x8",2,80,$inet)){
select(S); $|=1;
print $pstring;
@MUNGO=<S>;
select(STDOUT);
close(S);
return;
}
else{
die("\nnot responding\n"); }
}