#!/usr/bin/perl

my $DISK = $ARGV[0] or die "Usage: $0 <diskset>\n";


foreach my $file qw(tagfile maketag maketag.ez install-packages) {
	my $getto = "http://slackware.at/data/slackware-current/slackware/$DISK/$file";
print "wget -O $file $getto\n";
}