Select Code to Download

#!/usr/bin/env perl 
use strict;
...
my $res = $ua->get ($url);
print $res->status_line;
print $res->decoded_content;