opendir(my $dirhandle,$lfile) or die $!;