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