#!/usr/bin/perl
use strict;
$|++;

use LWP::Simple;

-d "RESULTS" or mkdir "RESULTS", 0755 or die "cannot mkdir RESULTS: $!";

my $all_model_index = get "http://sportsillustrated.cnn.com/features/2005_swimsuit/";

while ($all_model_index =~ /(\/features\/2005_swimsuit\/models\/[-\w]+\.html)/g) {
  my $model_index = get "http://sportsillustrated.cnn.com/$1";
  while ($model_index =~ /\"(http:\/\/i\.a\.cnn\.net\/si\/features\/2005_swimsuit\/models\/images\/)([-\w]+)t\.jpg\"/g) {
    my $url = "$1$2.jpg";
    my $file = "RESULTS/$2.jpg";
    print "$url => $file: ";
    if (-e $file) {
      print "skip\n";
    } else {
      print mirror($url, $file), "\n";
    }
  }
}