open evein,$ever or die $!;
flock(evein, LOCK_EX) or die "Cannot lock - $!";  
while (<evein>)
{
chomp;
next unless length;
my ($key,$value)=split /===/,$_;
$result{$key}=$value;
}
close(evein);