Select Code to Download

use 5.010;
use strict;
...
close (CCC);
close (DDD);

use 5.010;
...

foreach (keys %fh)    {close $fh{$_};}