print "Please enter your name:\n";
chomp($name = <>);
$x = "\u substr($name,0,1)\n";
print $x;