Help for this page
open(TMP, ">$files_path/$tm-$i.$type") || error(...); print TMP "$fl"; close TMP;
open(TMP, ">$files_path/$tm-$i.$type") || error(...); binmode(TMP); print TMP "$fl"; close TMP;