Without an error message, it's very difficult to tell you what's wrong.

Looking through the code, I'd use File::Spec's catfile() method instead of "$path/whosonline". I'd also remove the string comparison (eq) for checking to see if $rank is 15.

Those are merely stylistic, probably not fatal.

What does it say with -w and strict?