in reply to getting rid of a warning

you could also do as the warning suggests
SAVE_OUT;

[download]
should do the trick
the hardest line to type correctly is: stty erase ^H

In Section Seekers of Perl Wisdom