in reply to clear STDIN
It works for me. Linux 2.4.23, perl 5.8.3. Are you running this in a pipe or with redirected STDIN?
After Compline,Zaxo