#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::KTC_TOKEN;
use AFS qw(raise_exception);

raise_exception(1);

AFS::KTC_TOKEN->ForgetAllTokens;
