Does "perm" mean "permissions?" If so, you need to stat() the file, and look at the results... see perldoc -f stat

if not, then maybe what you want is eval "-$perm \$file"
--
Snazzy tagline here