$b->doSomething($f);

package Blah;

sub doSomething
{
    my $self = shift;
    my ($f) = @_;

    $f->methodX();
}