Select Code to Download

#!/usr/bin/env perl 
use strict;
...
my $res = $ua->get ($url, ':content_cb' => \&add_chunk, ':read_size_hi
+nt' => $bytes);

print "Retrieved $linecount lines in $chunkcount chunks from $url:\n\n
+$firstndata\n";