gistfile1.pl

package Example;
use URI;
use Web::Scraper;

my $URL  = 'http://www.topicmaker.com';
my @FOO  = qw/ foo /;

sub scrape {
    scraper {
        process '//tr', 'rows[]', scraper {
            warn @FOO;
        };
    }->scrape( URI->new($URL) );
}
1;