#!/usr/bin/perl -w

use strict;

my @bases = ();
my $ext = '';
while (<>) {
    s/^\s+//; s/\s+$//;
    if (/^BASE(\d+)=(.+)$/) {
	my ($basenum, $t) = ($1, $2);
	@bases = (@bases[0 .. $basenum-1], $t);
	print "bases now: " . join(', ', @bases) . "\n";
    }
    elsif (/^EXT=(.+)$/) {
	$ext = $1;
    }
    elsif (/^(.+)$/) {
	my $get = join('', @bases) . $1 . $ext;
	system 'wget', '-t', '0', '-c', $get;
    }
    elsif (/^$/) {
	next;
    }
    else { die "$ARGV:$.: bad line $_\n" }
}