{
 local $" = "\n";
 print FH "@head";
}