print"enter the input directory path:\n";
chomp($indir=<STDIN>);
print"enter the events directory path:\n";
chomp($evdir=<STDIN>);
print"enter the output directory name:\n";
chomp($tmpdir=<>);

##</code><code>##

opendir(DIR,".") or die "$!";
my @files=readdir DIR;

close DIR;

##</code><code>##

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);

##</code><code>##

open evein,$ever or die $!;

##</code><code>##

flock(evein, LOCK_EX) or die "Cannot lock - $!";

##</code><code>##

while(<fln>)
{
my ($line)=$_;

##</code><code>##

while ( my $line = <fln> )
{