$SIG{__USR1__} = sub {
  open(my $f, ">/tmp/taskinfo");
  print $f "$$'s current task is $TASK\n";
  close($f);
}