#!/usr/athena/bin/perl

open(DI, "/afs/sipb/user/marthag/dict");

@lets = split(//, $ARGV[0]);
$foo = join("\\.*", @lets);
print("Foo: $foo\n");
while(<DI>)
{
    if($gotit && /^\@./){
	last;}
    if(/^\@/){
	split(//);
	print(STDERR "$_[1]");}
	if(/^\@$foo/)
	{
	    $gotit = 1;
	    $_=~s/\@//;
	    push(@definition, $_);
	}
	else
	{
	    if($gotit)
	    {
		push(@definition, $_);
	    }
	}
}
$def = join("", @definition);
print("\n$def");