my @list = $ftp->ls;
print "TEST: @list\n";