my $tlsftp=Net::Lite::FTP->new(); 
$tlsftp->open($ftphost, 2030); 
$tlsftp->user("$ftpuser"); 
$tlsftp->pass("$ftppass"); 
$tlsftp->cwd("$dir"); 
my @files=$tlsftp->nlst("$fname"); 
print "@files\n";