print "What is your name? " ;
$name = <STDIN> ;
chomp($name) ;
print "Hello, $name!\n" ;