use File::Find;

sub Get_Saves {
    my @files;

    sub FileName {
        unless (($_ eq "." )or ($_ eq "temp.svd")){
	    push @files, $_;
	}
    
    }##END FileName

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

}##END Get_Saves