#
# eg3: case normalised greetings..
#
print "Please enter your name: ";
my $name = <STDIN>;
chomp $name;
$name = ucfirst(lc($name));
print "\nhello $name!\n";
