......
print "End of pass.\n";
print "\n";

$AH{'SS'}{$INFO}{'POINTER'}->close();
}