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";

##</code><code>##

OPEN.Received: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (3934600204)
SRV Response: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (3934600204)
RECV: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (3934600204)
OPEN..Received: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (3934600204)
Received: 234 SSL enabled and waiting for negotiation
Prototype mismatch: sub Net::SSLeay::randomize (;$$) vs none at (eval 5) line 1.

Sending: PBSZ 0
Prototype mismatch: sub Net::SSLeay::ssl_read_until ($;$$) vs none at (eval 6) l
ine 1.
Damn! undefined response
Sending: PROT P
Damn! undefined response