sub CLOSE {
    $_[0] = {};
    bless $_[0];
}