#!/usr/bin/perl

use IO::Socket;

for(1..2){
  print &GetPage('domain.com', '/index.php?id1='.rand(99999).'&id2='.rand(999999));
}

sub GetPage {
   local($serv, $page, $ret, $buf)=@_;

   my $s = IO::Socket::INET->new(
	PeerAddr => $serv,
	PeerPort => 80,
	Proto => 'tcp',
	Type => SOCK_STREAM) or return 0;

   print $s join("\r\n", (
	"GET $page HTTP/1.1",
	"Host: $serv",
	'Accept: */*',
	"Referer: http://$serv$page",
	'User-Agent: MSIE 6.0',
	'Connection: Close',
	'',''));

  while(read $s, $buf, 4096){ $ret.=$buf }

  close $s;

  return $ret;
}