#!/usr/bin/perl -w
while(defined($filename = glob("*.secret"))) {
   open (WORDLIST, $filename) || die "Can't open wordlist : $!";
   if(-M WORDLIST < 7.0){
      while(defined ($name = <WORDLIST>)){
         chomp($name);
         $word = <WORDLIST>;
         chomp($word);
         write;
      }
   }
   close(WORDLIST) || die "Couldn't close wordlist : $!";
}
format STDOUT =
@<<<<<<<<<<<<<<< @<<<<<<<<< @<<<<<<<<<<< 
$filename, $name, $word
.
format STDOUT_TOP =
Page @<<
$%

Filename         Name       Word
================ ========== ===========
.