# Takes an anon function and a list of arguments.  Returns
# a closure which will call the anon function with those
# arguments prepended to the argument list.
sub bind_args {
  my ($sub, @args) = @_;
  return sub {$sub->(@args, @_);};
}