#!/usr/local/bin/perl

use AFS localcell;

$dir = shift;

$cell = localcell();

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

print "localcell = $cell\n";

