#!/usr/bin/perl

dbmopen(%TAGS, './tags', 0666);
while(<>) {
	($value, $where) = /^(\S+)\s+\.\/(\S+)/;
	$TAGS{$value} = $where;
}
dbmclose(%TAGS);