sub do_bar {
  my( $a, $b ) = @_;
  my $cur_foo = Foo->current_instance;
  ##
  ## Use $cur_foo . . .
  ##
  return $zorch;
}