It's a bit of a bear, and the docs are definitely a jungle, but that cookbook is a great starting place. Jump on #dbix-class on irc.perl.org and you'll get a lot of good help figuring out things that aren't immediately intuitive.

I just changed it to this instead. Do you think I still need to iterate to last page? :

my $max_records = '';

GetOptions("max_records=i" => \$max_records)
    or die ("Error in command line arguments\n");

my @results = My::App::Schema->schema->resultset('MyTable')->search(
     undef,
        {
            page => 1,
            rows => $max_records,
        }
    );

for my $result ( @results ) {
### Processing Domain ID: ($result->id)
      print $result."\n";
}
[download]

Also, is irc.perl.org on freenode?

I think you need to call ->all:

my @results = My::App::Schema->schema->resultset('MyTable')->search(
     undef,
        {
            page => 1,
            rows => $max_records,
        }
    )->all;
[download]

irc.perl.org is the IRC server. So you'd connect to it like you would connect to freenode and /join the #dbix-class channel.

Three thousand years of beautiful tradition, from Moses to Sandy Koufax, you're god damn right I'm living in the fucking past