Help for this page

Select Code to Download

Select or download this

#! /usr/bin/env perl

...
print "ASCII Code Value = " . ord($key) . "\n";
print "Complete Answer = " . $key . $foo . "\n";
print "You typed a \"$key\"\n";

Select or download this

   print "\n\nANSWER";
   if (defined($default)) {
...
       redo;
   }
   chomp($answer = $key . <STDIN>);