Select Code to Download

use warnings;
use strict;
...

close($outfh) if $outfh;
close($infh);

    if ( $line =~ /^zone\s+(\w+)\W+\w+\s*$/ ) {
        ...
...
        close $outfh;
        $outfh = undef;
    }