#!/usr/bin/perl
use HTTP::Request::Common;
use LWP;

$url='http://f23.parsimony.net/forum52169/wwwforum.cgi';

$ua = new LWP::UserAgent;
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows 98');
$response=$ua->request(POST $url,
     [ 	name => 'wehurt',
	email => 'tehhst@gmx.net',
	subject => 'tehhst',
	password => 'xxxxx',
	abschicken => 'Text abschicken',
             body => 'Ist das geil' ],
         );
$in = $response->content;