print (OFILE_HANDLER "$head");
print (OFILE_HANDLER  "$line");
close (OFILE_HANDLER);