package foo {
    sub DESTROY { warn "Destroying object" }
    sub new     {
        warn "Creating object";
        return bless {}, $_[0];
    }
}
warn "Before block";
{
    my $obj = foo->new;
}
warn "After block";