#sub DESTROY {
#    my $class = shift;
#    return if ${^GLOBAL_PHASE} eq 'DESTRUCT';
#    $class->{handle}->close();
#}