eval { $foo = `some_bad_command` or die "blam" };
warn $@ if $@;

##</code><code>##

use strict;

sub Foo::DESTROY { eval { 1 } }

my $foo = bless {}, 'Foo';

eval { $foo = `some_bad_command` or die "blam" };
warn $@ if $@;