opendir(DIR, '.') or die $!;
for(readdir(DIR)) {
  if(/\.log$/) {
    $file = $_;
    last;
  }
}
closedir(DIR);