Try -M File::Basename::basename("$File::Find::name","");
The reason your code didn't pick up the modification is because File::Find is in the directory "categories"