一時ファイル作成

File::Temp使わんでも、my $fh = IO::File->new_tempfileで良かったんや。