sub steal_ref {
    my $cleaneater = shift;
    my $gotself;
    local *{Dinnerclosure::washhands} = sub {
        $gotself = shift;
    };
    $cleaneater->{'washhands'}->();
    return $gotself;
}

my $gotself = steal_ref($cleaneater);
[download]

-r