use Net::Lite::FTP;
my $tlsftp=Net::Lite::FTP->new();
$tlsftp->open("ftp.tls.pl","21");
$tlsftp->user("user");
$tlsftp->pass("password");
$tlsftp->cwd("sth");
my $files=$tlsftp->list("nok*");
foreach $f (@$files) {
 print "Getting file: $f\n";
 $tlsftp->get($f);
};