if (ref($file) eq 'ARRAY'){print join("\n", $format, @$file, $createMode), "\n";}
else {print join("\n", $format, $file, $createMode), "\n";}