Look up "perldoc -f -X"; the underscore means "get this information from the same stat data structure that we used the last time", which saves a few ops. "-r _" assures that the file we just checked with "-f" is readable by the current user.