our @files; # globally accessible

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

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