opendir(GPS,"$new_dir") or die "Cannot open directory";
                    my @GPS = readdir(GPS);
                    closedir(GPS);
                    
                    foreach my $kid (@GPS){
                        #~ if ($kid ne "." or $kid ne ".."){
                            if (defined($kid)){
                                if ($kid !~ /.bak/ or $kid !~ /.txt/ or $kid !~ /^\.{1,2}$/){
                                #~ if ($kid !~ /.bak/ or $kid !~ /.txt/){
                                    open KID , '<', "$new_dir\\$kid";
                                    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat(KID);
                                    my $data = <KID>;
                                    close KID;
                                    if (defined($data)){
                                        my @data = split(" ", $data);
                                        my $diff = time-$mtime;
                                        if ($diff >= 3600){
                                            unlink($kid);
                                        }
                                        elsif ($diff >= 20){
                                        }
                                    }
                                }
                            #~ }
                        }