Select Code to Download

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

 #!/usr/bin/perl -w
use strict;
...
my $curl = new WWW::Curl::Lite;
my $response = $curl->request($request);
print $response->content;

#!/usr/bin/perl -w
use strict;
...
foreach my $response (@$responses) {
    print $response->content;
}

#!/usr/bin/perl -w
use strict;
...
$curl->setopt( CURLOPT_HEADERFUNCTION, \&header_callback );
$curl->setopt( CURLOPT_WRITEFUNCTION,  \&body_callback );
$curl->perform;