Fix file descriptor leaks in perl code

dselect/methods/ftp/install

@@ -179,6 +179,7 @@ sub procpkgfile {
 	    }
 	}
     }
+    close $pkgfile_fh or die "cannot close package file $fn: $!\n";
 }
 
 print "\nProcessing Package files...\n";

scripts/dpkg-distaddfile.pl

@@ -92,6 +92,7 @@ if (open(my $fileslist_fh, '<', $fileslistfile)) {
         print($fileslistnew_fh "$_\n") ||
             syserr(_g("copy old entry to new files list file"));
     }
+    close $fileslist_fh or syserr(_g('cannot close %s'), $fileslistfile);
 } elsif ($! != ENOENT) {
     syserr(_g("read old files list file"));
 }