#!/usr/local/bin/perl

use AFS;

$c = shift;

$cell = ka_ExpandCell($c);

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

print "cell = $cell\n";

