#!/usr/bin/perl
### Fuegt die erste Zeile in die Zonenfiles ein (fuer Bind 9)!

use warnings;

open(F, "/bin/ls *.zone |");

while(<F>){

  open(Z, "<$_");
  @all = <Z>;
  close(Z);

  open(Z, ">$_");
  print Z "\$TTL 86400\n";

  foreach(@all){
    print Z $_;
  }

  close(Z);

}