#!/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
================ ========== ===========
.