sub Get_Saves {
  my @files;

  my $sub = sub {
    unless (($_ eq "." )or ($_ eq "temp.svd")){
      push @files, $_;
    }
  };

  find ($sub,"/usr/local/apache/htdocs/service/");
  return  \@files, $#files+1;
}