#!perl
print "What is your name?\n";
chomp($name = <STDIN>);
if ($name = 'larry') {
	print "You\'re Larry!\n"
}
elsif ($name = 'moe') {
	print "You\'re Moe!\n"
}
elsif ($name = 'curly') {
	print "You\'re Curly!\n"
}