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