Select Code to Download

#!/usr/bin/perl -w

use strict;
...
 unless $response->is_success;

print $response->content();

#!/usr/bin/perl -w

...

$response = $browser->get($site1, @netscape_headers);
print $response->content();