Help for this page

Select Code to Download

Select or download this

sub get_pv { local $^W; unpack 'L!', pack 'P', $_[0] }

...
      return $rv;
   }
}