package Foo;
my $error;

END {
    warn $error if $error;
}

sub IO::Handle::DESTROY {
    print "desctructor enter\n";
    my $self = shift;
    close $self || do {
        $error = $!;
        exit;
    };
    print "destructor exit\n";
}

1;