package Acme::ExceptionEater;
my %done; 

sub import { 
    shift @_; 
    for my $pkg ( @_ ) { 
        next if $done{$pkg}++; 
        $pkg .= "::DESTROY"; 
        my $orig= \&{$pkg}; 
        no warnings; 
        *{$pkg}= sub { $orig->(@_); eval{}; }
    } 
}