use warnings;
use strict;

print "What is your name?\n";
chomp (my $name = ucfirst <STDIN>);

my $obj = bless {};
my $call = $obj->can ("name$name");

if ($call) {
    $call->();
} else {
    print "I can't handle anyone by the name $name.\n";
}


sub nameLarry {
    print "Hi Larry. Welcome\n";
}


sub nameMoe {
    print "Hi Moe. Late again I see!\n";
}


sub nameTim {
    print "Hi TIMTOWTDI. Still pursuing the alternative life style?\n";
}