my $caller= shift @ARGV;
$SIG{$_} = \&reflectSig
    for  keys(%SIG);

sub reflectSig {
    my $sig= shift @_;
    kill $sig, $caller;
    kill 'USR1', $caller;
}