#!/usr/bin/perl
use strict;

BEGIN {
    eval {
        require Term::ReadKey;
    };
};
my $use_readkey = 1 unless $@;

print "Enter a secret message", 
    (not $use_readkey ? " (NOTE: message will be visible)" : ''), 
    ": ";
if ($use_readkey) {
    Term::ReadKey::ReadMode 2;
}
my $secret = <STDIN>;
if ($use_readkey) {
    Term::ReadKey::ReadMode 0;
}

print "\nYour message: $secret\n";

print "More typing, to verify normal input echo: ";
my $answer = <STDIN>;
print "You said: $answer\n";

##</code><code>##

Number found where operator expected at try.pl line 15, near "Term::ReadKey::ReadMode 2"
        (Do you need to predeclare Term::ReadKey::ReadMode?)
Number found where operator expected at try.pl line 19, near "Term::ReadKey::ReadMode 0"
        (Do you need to predeclare Term::ReadKey::ReadMode?)
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.