$lang = <STDIN>; chomp($lang); if ( $lang eq "perl" ) { print "Congratulations, you choose perl!\n"; } elsif ( $lang eq "Tcl" ) { print "Tcl is great, too.\n"; } else { print "Well, use $lang if you feel "; }