printf("op: %s (0x%x), parent: %s (0x%x)\n",
   $op->name, $$op, $parent->name, $$parent);

##</code><code>##

op: padsv (0x104cc20), parent: sassign (0xfc7788)

##</code><code>##

# 42:     my $addr =  $site->();
        COP (0xfc7728) nextstate
        BINOP (0xfc7788) sassign
            UNOP (0xfc77d0) entersub [4]
                UNOP (0xfc7848) null [157]
                    OP (0xfc7810) pushmark
                    UNOP (0xfc7890) null [16]
                        OP (0xfc78d0) padsv [1]
            OP (0x104cc20) padsv [3]