IIRC, Dominus wrote a Perl implementation of "file" for Tom's "Perl Power Tools" project. If I were to ever do what the OP is doing, I'd settle for `file $file`, and modifying /etc/magic if needed.

Abigail