#!/usr/bin/perl
#
#

$| = 1;
$failures = 0;
mkdir('ftp',0777) unless -d 'ftp';
chdir 'ftp';

for $u (@ARGV) {
	($f = $u) =~ s"^.*/"";
	@rsp = `ftp -a $u`;
	if (open(F,$f)) {
		for $l (<F>) {
			print $l;
		}
		close F;
#		unlink $f;
	} else {
		++$failures;
	}
}

exit $failures;