#
# eg4: special case greeting
#
print "Please enter your name: ";
my $name = <STDIN>;
chomp $name;
$name = ucfirst(lc($name));
if( $name eq "Duncan" )
{
	print "\nwotcha Dunky babe!\n";
} else
{
	print "\nhello $name!\n";
}
