Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    
    ...
    print "More typing, to verify normal input echo: ";
    my $answer = <STDIN>;
    print "You said: $answer\n";
    
  2. or download this
    Number found where operator expected at try.pl line 15, near "Term::Re
    +adKey::ReadMode 2"
            (Do you need to predeclare Term::ReadKey::ReadMode?)
    Number found where operator expected at try.pl line 19, near "Term::Re
    +adKey::ReadMode 0"
    ...
    syntax error at try.pl line 16, near "Term::ReadKey::ReadMode 2"
    syntax error at try.pl line 20, near "Term::ReadKey::ReadMode 0"
    Execution of try.pl aborted due to compilation errors.