print "Hello World\n";

print "名前をローマ字で入力してください(例：Hanako) : ";
$name = <STDIN>;
chop($name);		##<STDIN>したらchopする(改行をとる)

print $name,"さんですね?";
