#!/usr/bin/perl
use strict;
use warnings;


$| = 1;

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

sub something {
    open ( my $foo, '>', '/dev/full' );
    print $foo 'bar';
}

print "pre\n";
something();
print "post\n";

##</code><code>##

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;