#!/usr/bin/perl -w
  use strict;
  use WWW::Curl::Lite;
  use WWW::Curl::Lite::Request;
                                                                                
  my $request = new WWW::Curl::Lite::Request;
  $request->url('http://files.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;