File::Basename can help you out.

Rather than using the shell's find, you might want to use File::Find.

Hope this helps, -gjb-

Thanks. ...another newbie question How can I adjust this to deal with multiple results ?

The above posted solution should already handle multiple results.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

: () { :|:& };:

Note: All code is untested, unless otherwise stated

use File::Spec;
use File::Find::Rule;

my @files = map { (File::Spec->splitpath $_)[-1] }
            find(file => name => "*ofas.db", in => $db_path);
[download]

thanks, tried this but got Can't locate File/Find/Rule.pm in @INC guess that means its not available on our system. I'm new to this and I don't know how to tell what libraries/packages are installed

If you've got privileged access to your machine then you can simply do

perl -MCPAN -e 'install q[File::Find::Rule]'
[download]

to install the module. However, if you're an unprivileged user you just need to set the path to somewhere that you can write to e.g

shell> perl -MCPAN -e shell

cpan shell -- CPAN exploration and modules installation (v1.65)
ReadLine support enabled

cpan> o conf makepl_arg PREFIX="/your/path/to/perl/lib"
[download]

Or if you're installing from an unpacked tarball, just pass the PREFIX parameter to the Makefile.PL e.g

perl Makefile.PL PREFIX=/your/path/to/perl/lib
[download]

Then just add /your/path/to/perl/lib to @INC either through lib or the environment variable $PERL5LIB e.g

use lib '/your/path/to/perl/lib';

use File::Find::Rule;
[download]

HTH

_________
broquaint