Select Code to Download

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

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

close DIR;

open evein,$ever or die $!;
flock(evein, LOCK_EX) or die "Cannot lock - $!";  
...
$result{$key}=$value;
}
close(evein);

open evein,$ever or die $!;

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

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

while ( my $line = <fln> )
{