#!/usr/local/bin/perl

use AFS;

$dir = shift;

$cell = ka_LocalCell;

print "AFS::CODE = $AFS::CODE\n";

print "localcell = $cell\n";

