sub rscalar {
my($count);
  map { 
    $count++;
    if (ref eq "ARRAY") {
      $count = $count + rscalar(@{$_});
    }
  } @_;
  return $count;
}

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/