package Foo;
sub filter 
{
    . . . 
}

package Bar;

my $obj = Baz->new( \&Foo::filter );