$lessbullshit = 'bubbathr='.$text.'&[email protected]&addy='.$url.'&cmentbak='.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'&submit=Say%20It!&';
$morebullshit = 'uathor_spamsucks='.$text.'&[email protected]&rul_spamsucks='.$url.'&ocmment_spamsucks='.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'&usbmit_spamsucks=Say%20It!&';
$bullshit = 'spam_guard_check=1&human=i%20am%20human&mindy=Mindy&8d10f63aeadd9bbd91a9325fe85d102d=608&xAbhhngTHAzToLmvVS=354&81d53df0d5f3543779472665467205f3=1554&ulrika=Ulrika&mike=mike&yousuck=alot&antispam=stew&spam_guard_check=1&checkpoint=spammers_go_home&16a13c892451bfc0063703fab1859ffa=4088&';

$clip = $lessbullshit.$morebullshit.$bullshit.'comment_post_ID='.$number.'&author='.$text.'&[email protected]&url='.$url.'&comment='.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'%20'.$a[int rand($#a)].'&submit=Submit%20Comment';
$request = HTTP::Request->new('POST',$sitename,$h);
$request->content_type('application/x-www-form-urlencoded');
$request->content($clip);
$request->referer($sitename);

$response = $ua->simple_request($request);


print $response->code(),"\n";


$request = HTTP::Request->new('GET',$urla.$number,$h);
$request->content_type('application/x-www-form-urlencoded');

$response = $ua->simple_request($request);