my $sub = sub {
 . . . 
};
my $obj1 = Foo->new( $sub );
my $obj2 = Foo->new( $sub );