Select Code to Download

#!/usr/bin/perl
use strict;
...
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
print $response->content;