SpaceInvader2.pl

#!/usr/bin/perl
#SpaceInvader2.pl
#Revised script for downloading a series of Windows Live Spaces from a list.
use strict;
use warnings;

die("Usage: SpaceInvader2.pl \"HOTLIST\"\n") unless ($ARGV[0]);

open(HOTLIST, "<$ARGV[0]");

while (<HOTLIST>)
{
    &archiveSpace($_, 0)
}

close(HOTLIST);
print("\n");
print("$ARGV[0] done.\n");

sub archiveSpace()
{
    system("wget --mirror --page-requisites --continue --convert-links --user-agent=\"Googlebot/2.1 (+ http://www.googlebot.com/bot.html)\" -e robots=off --timestamping --wait $_[1] $_[0]");
}