#!/usr/local/bin/perl
use strict;
use warnings;
print "What is your name?\n";
chomp(my $name = <STDIN>);
if ($name eq 'larry') {
    print "You're Larry!\n"
}
elsif ($name eq 'moe') {
    print "You're Moe!\n"
}
elsif ($name eq 'curly') {
    print "You're Curly!\n"
}