#!/usr/bin/perl 
print "what is your name\n";
$name = <STDIN>;
print "hello $name";
print "select letter\n";
$select = <STDIN>;
if ($select == a)  
{
print "good choice\n";
}
else 
{
print "bad choice\n";
}