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