#!/usr/bin/perl -w
use strict;
use WWW::Curl::Lite;
use WWW::Curl::Lite::Request;

my $request = new WWW::Curl::Lite::Request({ url => 'http://oook.de' });
$request->useragent('curltest/0.1');
$request->postfields('test=1&curl=cool');

my $curl = new WWW::Curl::Lite;
my $response = $curl->request($request);
print $response->content;