perlでファイル出力(追記型)

open(FH,">> data.txt");
print FH "DEF";
close(FH);

ネタ元