#!/usr/local/bin/perl

use AFS;

#AFS::raise_exception(1);

$context =0;

 while( $p = ktc_ListTokens($context)) {

    print "token = ", $p -> principal, "\n";

  }
