sub writeFile {
open(FILE, ">$_[0]") || return ($!);
print FILE "$_[1]";
close(FILE);
return 0;
}