sub bind {
  my ($callback, @args) = @_;
  $callback->(@args);	
}