foreach $filename (@files)
{
  $rr = Net::DNS::ZoneFile::Fast::parse(
    file=>$filename,
    on_error => sub {print "Error in $filename on line: $ln\n";}
  );
}