http://paperlined.org/dev/src/pl/porn/easycelebritys/easycelebritys.pl

#!/usr/bin/perl

# Given one URL on easycelebritys.com, eg.:
#       http://www.easycelebritys.com/m/mischa_barton_11/01.html
# This tries to find all valid URLs on the site.
# 
# Also works for this site:
#       http://www.starsmaster.com/j/jessica_alba_01/

    use strict;
    use warnings;

    use LWP::Simple;

my $url = shift or die "Please specify an example URL from easycelebritys.com.\n";

for (my $ctr=1; $ctr<100; $ctr++) {
    $url =~ s#_\d+/#sprintf("_%02d/", $ctr)#e;
    #print "$url\n";
    #print "....  trying $ctr\n";
    print "\r\e[0K...$ctr"; $|++;
    my $html = LWP::Simple::get($url);

    #if ($html =~ m#<table.*class=['"]?pics['"]?>#si) {
    if (length($html) > 1500) {
        print "\r\e[0K$url\n";
    }
}
print "\r\e[0K\n";