sub Get_Saves {
    my @files;
    @files=find(\&FileName,"/usr/local/apache/htdocs/service/"); #sure you want to hard code this?
    return  \@files, $#files+1; # why return the size?
}##END Get_Saves

sub FileName {
    my @files;
    unless (($_ eq "." )or ($_ eq "temp.svd")){ # do you need to test for '..' too?
        push @files, $_;
    }
return @files; 
}##END FileName