my $SIGINT=2;
my $PID=fork("my command");

  .  .  .

sub SIGHANDLER {
    kill $SIGINT, $PID;
}