See perldoc -f -X (shows a piece of the perlfunc manpage) for info on how to get all kinds of status from files.