my @ftpfiles=$ftp->ls or die "cannot get file list;	
print "Got  file list\n";