if ( $response->is_success ) {
my $tp = HTML::TokeParser->new( \$response->decoded_content )
|| die "Can't open: $!";
while ( my $token = $tp->get_tag('img') ) {
print $token->[1]->{'src'}, qq{\n};
}
}
else {
print $response->decoded_content;
die $response->status_line;
}
__END__
Starting...
Success!http://www.projectwonderful.com/nojs.php?id=39770&type=5
http://www.questionablecontent.net/images/patreonad.png
../images/logo14.png
http://www.questionablecontent.net/comics/2845.png
http://www.questionablecontent.net/images/1s1k.gif
http://www.questionablecontent.net/images/station.gif
http://www.questionablecontent.net/images/qc-vol04.jpg
http://www.questionablecontent.net/images/yelingboard.jpg
http://www.questionablecontent.net/images/18x24.jpg
http://www.questionablecontent.net/images/mlgshirt.jpg
../images/ag.gif
http://api.flattr.com/button/flattr-badge-large.png
http://www.questionablecontent.net/images/patreonad2.png
http://www.projectwonderful.com/nojs.php?id=138&type=2