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 "what is your name\n";
my $name = ;
print "hello $name";
print "select letter\n";
my $select = ;
if ($select == 'a')
{
print "good choice\n";
}
else
{
print "bad choice\n";
}
##
##
Argument "a" isn't numeric in numeric eq (==) at 962926.pl line 10, line 2.
Argument "a\n" isn't numeric in numeric eq (==) at 962926.pl line 10, line 2.
good choice