print "Input your name?\n";

chomp( $in = ＜STDIN＞ ); # 標準入力から１行分のデータを受け取り、末尾の改行文字を削除

print "You are ","$in",",right?";