Select Code to Download

#!/usr/bin/perl

...

say $resp->status_line;
say Dumper $resp;

500 Can't connect to no.such.server.in.my.lan:80 (Bad hostname)
$VAR1 = bless( {
...
                                        '_method' => 'GET'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );