who to define a function in run time

[Marcos . Rebelo]

if you do:
perl -e '$a="beta"; *$a=sub{print("xxx")}; beta()'
works and print "xxx"

if you do:
perl -e 'use strict; my $a="beta"; *$a=sub{print("xxx")}; beta()'
don't works

Who do I resolve this problem

Thanks

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]