Help for this page
package Mod { DESTROY { eval { } } } ... }; print $@ || "[undef]\n";
$ 5.12t/bin/perl a.pl [undef]
$ 5.14t/bin/perl a.pl xxx