print "Please enter your name:\n";
chomp( $name = <> );
$x = ucfirst $name;
print $x;