Skip to content

Instantly share code, notes, and snippets.

@metaperl

metaperl/gist:973675

Created May 15, 2011 23:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save metaperl/973675 to your computer and use it in GitHub Desktop.
Save metaperl/973675 to your computer and use it in GitHub Desktop.
Download ZIP
read the NCD testimonies (my distributor id is 907947)
Raw
gistfile1.pl
use strict;
use warnings;
use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;
my $starturl = 'http://www.testimonyinfo.com/';
print $ua->max_redirects(3)->get($starturl)->res->body;
#sub find_next_link {
# $ua->dom->find('a[href=^"Condition"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment