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

That'll put the name of the first file it finds in the directory that ends in .log and puts it in $file... otherwise $file stays empty...
                - Ant