my $realSig= \%::SIG;
*::SIG= {};
tie %::SIG, ...