opendir(FILES,"$SAVE_DIRECTORY");
   @allfiles = sort(grep(!/^\.\.?$/,readdir(FILES)));
   closedir(FILES);
   foreach$file(@allfiles) {
      print "$file\n";
   }
   
   exit;
	}