print "What is your name?";
open (INFO, "-");		# Open standard input (keyboard) 
$name = <INFO>;			# Read one line of input
print "Hello, $name";		# Print greeting