my $o = UsesClosures->new();
$o->set_attr(123);
print $o->get_attr();
$o->some_method();