#!/usr/local/bin/perl

use AFS;

AFS::raise_exception(1);

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

$name = shift;

$pts = newpts;

$success = $pts ->delete($name);

print "success  = $success\n";


