Select Code to Download

#!/usr/bin/perl

...
  print "In Obj::foo and about to pass the buck.\n";
  return $self->{_foo}->foo(@_);
}