I think it's very simple:

if you change in the main program,

$b->doSomething;
[download]

to

$b->doSomething($f);
[download]

and

package Blah;

sub doSomething {
  my $self = shift;
  my $f = shift;
  $f->methodX;
}
...
[download]

That should work for you.

artist