#!/usr/local/bin/perl

use GDBM_File;
use Fcntl;
if($#ARGV != 1){
    print "usage:\n\t$0 [gdbm file] \"string to lookup\"\n";
    exit 0;
}
($dbmmap,$var)=@ARGV;
print $ARGV[0],"\t",$ARGV[1],"\n";
tie(%DB, 'GDBM_File',$dbmmap, O_RDONLY,0644);
print $DB{$var},"\n";
untie(%DB);