Select Code to Download

use strict;
use warnings;
...
    print "\n";
    $AH{'SS'}{$INFO}{'POINTER'}->close();
}