write_fileをperlワンライナーベースかつbase64ベースに変更