#!/usr/local/bin/perl

use AFS;

AFS::raise_exception(1);

die "Usage: $0 name\n" if $#ARGV != 0;

$name = shift;

  $pts = newpts;

   $pos = $pts ->whereisit($name);

  print "pos = $pos\n";



