http://paperlined.org/dev/src/pl/jayisgames.com/scrape.pl

#!/usr/bin/perl

# <short description of program>

    use strict;
    use warnings;

    use LWP::Simple;
    use Web::Scraper;       # TODO: install this, it looks awesome  (damn, it doesn't work on Perl v5.8.8)
    use Scrappy;            # TODO: try this instead?

    use Data::Dumper;
    #use Devel::Comments;           # uncomment this during development to enable the ### debugging statements


my @ARGV = ('flash');       # for development purposes only

my ($tag) = @ARGV
    or die "Please specify a tag to scan.\n";


for (my $pagenum=0; ; $pagenum++) {
    my $url = ($pagenum == 0) ?
                    "http://jayisgames.com/tag/$tag" :
                    "http://jayisgames.com/tag/$tag/$pagenum";

    my $html = LWP::Simple::get($url);

    print $html;

    exit;
}