Select Code to Download

sub spawn {
    my $pid;
...
        @sigs= ();
    }
}

my $caller= shift @ARGV;
$SIG{$_} = \&reflectSig
...
    kill $sig, $caller;
    kill 'USR1', $caller;
}