Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $response = $browser->get("http://www.oreilly.com/");
print $response->header("Server"), "\n";

!/usr/bin/perl -w
use strict;
...
  return unless $resp->is_success;
  return $resp->content;
}