my @list = $ftp->ls();

        if ($cur_seq == 9999) {
                $ck_current = 1;
        } else {
                $ck_current = $cur_seq+1;
        }

        foreach my $name (@list) {
                #($pattern = $pattern) =~ s/\.*//g;
                if ($name =~ /^$file_pattern$/) {
                        ($ckseq = substr($name,6,6)) =~ s/^0+//g;
                        $list_filename{$ckseq} = $name;

                        my $mdtm = $ftp->mdtm($name);

                        if ($mdtm > $lasttm) {
                               $latestfile = $name;
                               $lasttm = $mdtm;
                        }
                }
        }

        (my $lastseq = substr($latestfile,6,6)) =~ s/^0+//g;