Some like:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
&IOSocket;
sub IOSocket{
use IO::Socket;
$method = "GET";
my @f = split(/\//, $input);
$host = "123.456.789.12";
$path = "/page.php?querystring=value";
$socket = new IO::Socket::INET( PeerAddr => $host,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM, ) or die &show($start,$stop,$command,$input,"<p>Error: Unable to connect to server<p>",$special);
print $socket "$method $path HTTP/1.0\nReferer: $host\n";
print $socket "User-Agent: $ENV{'HTTP_USER_AGENT'}\n\n";
@ = <$socket>;
close ($socket);
}
Regards,
Fernando F. Torres
www.megavale.com.br