in reply to perl find module

use File::Basename ?