use File::Find;
use CGI;
use POSIX 'strftime';
use Tk;

&message;

@html_dat = ('a'..'z', 0..9);

foreach $html_dat (@html_dat){
     @dateien = undef;
     $q = new CGI;
     open (HTML, ">$html_dat.html");
     find (\&wanted, $ENV{HOME});
     select(HTML);
     print $q->start_html(-title=>"Meine Dateien";),

      # Jetzt wird eine Html datei geschrieben mit einer Tabelle in der 
      mit den gefunden Dateien alle die mit a b c usw bis 9 beginnen) 
      im Dateinamen
     
      print $q->end_html;
      close(HTML);
      select(STDOUT);
      
      $i = $i+1;
      if($i == 10){&message}; #Tk Modul Label 'indizierung läuft'
      if($i == 20){&message};
      if($i == 30){&message};
};