Select Code to Download

$request = HTTP::Request->new('GET', 'http://...');
$response = $ua->request($request, '/tmp/sss');

$request = HTTP::Request->new('GET', 'http://...');
$response = $ua->request($request, \&callback);
...
   my ($data, $response, $protocol) = @_;
   ...
}

use strict;
use warnings;
...
my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new('GET', 'http://www.perlmonks.org/');
my $response = $ua->request($request, \&callback);