in reply to clear STDIN

Consider using something like Term::ReadLine.

In Section Seekers of Perl Wisdom