my $self = Foo->new();
my $mysub = sub { $self->increment() };