Select Code to Download

Bareword "a" not allowed while "strict subs" in use at 962926.pl line 
+10.
Execution of 962926.pl aborted due to compilation errors.

#!/usr/bin/perl 
use strict;
use warnings;
...
{
    print "bad choice\n";
}

Argument "a" isn't numeric in numeric eq (==) at 962926.pl line 10, <S
+TDIN> line 2.
Argument "a\n" isn't numeric in numeric eq (==) at 962926.pl line 10, 
+<STDIN> line 2.
good choice