#!/usr/bin/perl -w

$| = 1;

use DNS::ZoneParse;
use Data::Dumper;

$out_dir = "/var/tmp/abs";
$list    = "/var/tmp/list";

open(IN, "$list");
@files = <IN>;

for(@files) {
   $line  = "$_";
   $out  = join('.', ( split('/', $line) )[-1,-2]);
   $dns   = DNS::ZoneParse->new("$line");

   open(OUT, ">$out_dir/$out") or die "Cant create $out_dir/$out: $!\n";
   print OUT Data::Dumper->Dump([$dns->soa]) . "\n";
   close(OUT);
 }
close(IN);
exit;