Select Code to Download

#!/usr/bin/perl

...
 if ($response->is_success) {
     print $response->decoded_content;
 }

 
$VAR1 = bless( {
     '_protocol' => 'HTTP/1.1',
...
          }, 'HTTP::Request' )
    }, 'HTTP::Response' );
Use of uninitialized value in print at ./t.pl line 13.