#!/usr/bin/perl -dw
# Call wget to download a directory full of links.
# This depends on the site returning links to the files.
# We avoid the usual problem of "wget -r" returning the entire site.

for $url (@ARGV) {
	$cmd = "wget -r --no-parent $url";
	@rpl = open(CMD, "$cmd |");
	while ($line = <CMD>) {
		print $line;
	}

}