perl -MWWW::Curl::Lite -e 'print WWW::Curl::Lite->get("http://files.oook.de")'

##</code><code>##

 #!/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;

##</code><code>##

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

my $request1 = new WWW::Curl::Lite::Request;
$request1->url('http://oook.de');

my $request2 = new WWW::Curl::Lite::Request;
$request2->url('http://files.oook.de');

my $curl = new WWW::Curl::Lite;
$curl->register($request1);
$curl->register($request2);
my $responses = $curl->request;
foreach my $response (@$responses) {
    print $response->content;
}

##</code><code>##

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

my $url = 'http://oook.de';

sub header_callback {
   my $chunk = shift;
   print($chunk);
   return length($chunk);
}
                                                                           
sub body_callback {
   my ( $chunk, $handle ) = @_;
   print($chunk);
   return length($chunk);
}

my $curl = new WWW::Curl::Easy;
$curl->setopt( CURLOPT_URL,            $url );
$curl->setopt( CURLOPT_HEADERFUNCTION, \&header_callback );
$curl->setopt( CURLOPT_WRITEFUNCTION,  \&body_callback );
$curl->perform;