for(@files){
	    $ftp->put($_) || die("Couldn't put file:$_\n.");
	    print ".";
	}