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

##</code><code>##

sub Get_Saves {
    my @files;
    @files=find (\&FileName(/@files),"/usr/local/apache/htdocs/service/");
    return  \@files, $#files+1;
}##END Get_Saves

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