Select Code to Download

$parm_str = "\$" . "config->{jane}->{tel_no}, "\n";

$parm_str = '$config->{jane}->{tel_no}';

package xmlutil;

...
  return get_ivnode(\$lNewPtr,join(DELIM,@pParm));

}

use strict;

...
use xmlutil;

xmlutil::get_ival('jane,tel_num');

  return $$pPtr unless $lKey;

  return $$pPtr->{$lKey} unless $pParm[0];