my $r = HTTP::Response->new($url);
 print "r: ", $r->decoded_content, "\n";