# No.14 Perl Sample (code key - 71)
# Hello World! 3 （初めてのPerlスクリプト）
# Tomonori Nagano <tnagano@gc.cuny.edu>
# Last Update: January 18, 2008
#
# This file is encoded in Unicode (UTF-8). If you see gibberish characters, 
# please re-encode the file in utf-8. 
# 

print "what's your name?: " ;		# print a message to ask for input

my $name = <STDIN> ;				# take a command-line input
chomp($name) ;						# delete the end-of-line characater

print "Hey $name!\n" ;				# print "hello Tomonori Nagano!"