package Mod { DESTROY { eval { } } }

eval {
   my $x = bless( {}, "Mod" );
   die( "xxx\n" );
};

print $@ || "[undef]\n";