$sym = "${callpack}::$sym" unless $sym =~ /::/;
*$sym =
(  $ch eq "\$" ? \$$sym
 : $ch eq "\@" ? \@$sym
 : $ch eq "\%" ? \%$sym
 : $ch eq "\*" ? \*$sym
 : $ch eq "\&" ? \&$sym 
 : do {
	 require Carp;
	 Carp::croak("'$_' is not a valid variable name");
 });