#!/usr/local/bin/perl

$base = '/data/web/70176/www/articles/2002';

print "Content-type: text/html\n\n";

opendir(DIR, "$base") or print "Dir died.";
 @dir = readdir(DIR);
closedir DIR;

foreach $file (@dir) {

 open(FILE, "$base/$file") or print "File died.";
   @file = <FILE>;
 close FILE;

 $scalar_file = join(/ /, @file);

 if ($scalar_file =~ /kanutski/gi) {

   print "$file<br>\n";

 }

}

print "Exit";