#!/usr/bin/perl --
use strict;
use warnings;

use pQuery;

pQuery("http://some.uri.com/")
    ->find("*[class~=className]")
    ->each(sub {
        my $i = shift;
        print $i + 1, ") ", pQuery($_)->html(), "\n";
    });
__END__
[download]