Hi gri6507,

Checkout perldoc -q single. Looks like you may want to use Term::ReadKey to write a little function to check the user input making sure that it is not $key=24 (which IIRC belive equates to Ctrl X).
I can't install this module at the moment (Im at work), but look at the sample code from perldoc -q single which should point you in the right direction.

Hope this helps.

Martin