[ic] usertag passing args by reference (perl newby)

[Marco Mescoli]

And if i want to pass the address of a scratch var and modify the var 
inside mytag ?
Something like this:

-------- mytag.tag ------------
UserTag mytag Order myarg
UserTag mytag Routine <<EOR
sub {
   my $ref = shift;
   $($ref) = 'bar'; # :-?
   return;
}
EOR

--------- mytest.html --------
[set example]foo[/set]
[scratch example]
[mytag myarg=`\$Scratch->{example}`]
<br />[scratch example]

---------- output -----------
foo
bar


Marco