Works fine for me using perl 5.8.8 on window XP. (I did have to change the "clear" command to "cls".)

I recommend using a prompt module such as IO::Prompt