#!/usr/bin/perl

use strict;

my $base="http://safari.oreilly.com/";
my @urls;
my $rndpct=.1;
my $sleeptimeavg=17;
my $sleeptimevar=.3;

while (<>) {
    chomp;
    push @urls, $_;
}

print ($#urls+1);
print " urls to suck...\n";

for(my $c=0;$c<($#urls*$rndpct);$c++) {
    my $a=int rand $#urls;
    my $b=int rand $#urls;
    my $t=$urls[$a];
    $urls[$a]=$urls[$b];
    $urls[$b]=$t;
}

while (@urls) {
    my $stime=$sleeptimeavg+(rand ($sleeptimeavg*$sleeptimevar*2))-($sleeptimeavg*$sleeptimevar);
    $stime=int $stime;
    $_ = shift @urls;
    $_ = $base.$_;
    print "$_ - $stime secs.  $#urls left.\n";
    system "curl -A \"Mozilla/5.0\" -O \"$_\"";
    sleep $stime;
}