#!/usr/local/bin/perl

use AFS;

AFS::raise_exception(1);

  $pts = newpts;

   ($uid, $gid) = $pts ->PR_ListMax();

  print "uid = $uid  gid = $gid\n";

