##!/usr/bin/delphi

use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => 'Generator Statey v1.1');
print "~~~~~~~~~~C0d3d on DELPHI~~~~~~~~~~\n\n";
$a=int rand(9);
$req = HTTP::Request->new(GET => "http://forum.antichat.ru/showpost.php?p=342$a&postcount=$a");
$req->header('Accept' => 'text/html');$res = $ua->request($req);
open heck,">generator.html";print heck $res->content;close heck;
system("generator.html");