my $ls;
	@{$ls} = $ftp->dir();
	if (!@{$ls}) {
	    print "Unable to list files in ftp://$host/$dir\n";
	    logError ("Unable to list files in ftp://$host/$dir");
	    return undef;
	}
	print Dumper($ls);