1:  package Foo;
 2:  sub DESTROY
 3:  {
 4:     $@ = '';
 5:     ## local $@ = '';  <-- this will work
 6:  }
 7:
 8:  package main;
 9:  eval {
10:     my $foo = bless {}, 'Foo';
11:     die;
12:  };
13:  if( $@ ) {
14:     die $@;
15:  }