sub create_closure {
    my $t = shift; 
    my $m = shift;
    my $r = eval  'sub { $t->' . $m . '() }'; 
}