Select Code to Download

#!/usr/bin/perl -w
# this code worked
...
my $html = $robot->content();

print "$html";

    my $response = $browser->get($baseurl,@ns_headers);
    die "$baseurl error: ", $response->status_line
...
      if ($savestr =~ /$pattern/i ) {$savecount++;&storeurl($savestr,$
+trackname,$year)};
    }
    print "I saw $sawcount URLs and thought $savecount where of intere
+st.\n";