Select Code to Download

http://search.cpan.org/~gaas/libwww-perl-6.02/lib/LWP/UserAgent.pm

use strict;
use warnings;
...
  print $response->content :
  die 'Failed, got ' . $response->status_line . 
    ' for ' . $response->request->uri . "\n";