sub WriteToFile($@)