sub RemoveThing
{
  my $thingid = shift();
  my $thingtodo = q[sub {&Handlers::thing_remove("_thingid");}];
  $thingtodo =~ s/\b_thingid\b/quotemeta($thingid)/ge;
  $thingtodo = eval($thingtodo);

  # QueueAction serializes it's first argument
  QueueAction($thingtodo);
}