if ($time_string =~ /\d\d\d\d-\d\d-(\d\d)/ && ($1>=21 && $1<=31)) {
        print "File $name has an mtime of $time_string\n";
        $ftp->get($name)
                or die "get failed ", $ftp->message;
    }