File::Basename can help you out.

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

Hope this helps, -gjb-