my $oldhandler = $SIG{SOMETHING};
$SIG{SOMETHING} = sub {
 # do whatever 
 if ($oldhandler) {
    $oldhandler->();
 }
};