Not a Perl guy. What are the semicolons in that if statement all about?
EDIT: Oh, that's in the Perl (5) code. Nevermind then.
In C-like it kind of makes sense – it's 1 character shorter, and on some ancient crappy compilers it may actually run faster than while(1) since it doesn't have to check the condition every time ;)