LWP Callback

lwp_callback.pl

#!perl

use warnings; 
use strict; 

$|++;

use DDP;
use LWP;

die "Please enter URL as parameter.\n" unless @ARGV;
my $final_data = undef;

foreach my $url (@ARGV) {
   print "Processing URL ", substr($url, 0, 40), "... ";
   my $ua = LWP::UserAgent->new(  );
   my $response = $ua->get($url, ':content_cb' => \&callback, );
   p $response;
   print "\n"; 
}

sub callback {
   my ($data, $response, $protocol) = @_;
   $final_data .= $data;
   print ".";
}