@files = $ftp->List($sFileNamePattern, 3);
foreach my $file (@files)
{
  if (CheckDTS($file->{'mtime'}) == 1)
  {
       push(@aGoodFiles, $file);
  }
}