#---------------------------- # 入力文字と遊ぶ。 # FileName::InputPlayer.pl #---------------------------- while(){ $_=<SDTIN>; print $_; } #[EOF]</sdtin>