I see nothing too bad in your approach. For sure is not a portable way. But you can use File::Spec to split on the correct separator and catfile in a more portable way.

Then you can profit of the cpan module File::SearchPath to accomplish the search.

L*