Funny, it works on every system I've ran it on (Linux/Win32-Perl 5.005/5.6). Are you sure you copy-pasted the code correctly? Try using the download code option; I got rid of the code tags surrounding the word "print" in my message, so this should work well now.