How do I append to the beginning of a file?
tie @LOG, 'Tie::File', 'DrainC.log' or die ...; unshift @LOG, $new_record1, $new_record2, @more_new_records;
