Select Code to Download

$ perl -MO=Concise,-exec -e'$$ref'
1  <0> enter 
...
4  <1> rv2av[t1] vK/1
5  <@> leave[1 ref] vKP/REFC
-e syntax OK

sv = SvRV(sv);

sv = SvRV(sv);