#!/usr/bin/perl
use strict;
{
    package Deal;
    sub new { bless {} }
    sub make { "No collateral" }
    sub free_resources { unlink $_[0]->{tmp} }

    sub DESTROY {
        my( $self ) = @_;
        $self->free_resources()
            or  die "Failed to free resources: $!\n";
    }
}

eval {
    my $deal = Deal->new();
    die "Can't make a deal: $_\n"
        for $deal->make();
    1
} or do {
    warn "Deal failed: $@\n";
    settle();
};

sub settle {
    # ...
}