#!/usr/bin/perl -l

use strict;
use warnings;
use LWP::Simple;

my $base = "http://sportsillustrated.cnn.com";
my $path = "swimsuit/2007/02/03";
my $vidbase = "http://wmscnn.stream.aol.com.edgestreams.net/cnnsi";

my $vid_index = get "$base/features/2007_swimsuit/video/";

while ($vid_index =~ m{(/features/2007_swimsuit/video/.*?.html)}g) {
    my $page = get "$base/$1";
    if ($page and $page =~ m{/video/$path/(.*?)/include\.js}) {
	my $code = $1;
	print "$vidbase/$path/$code/video.ws.wmv";
    }
}