Помогите дописать
скрипт который случайным образом выбирает *.txt файл и вставляет его куда нада
#!/usr/bin/perl
print "Content-Type: text/html\\n\\n";
$dir = \'.\';
opendir(DIR, $dir);
@files = grep {/.txt$/} readdir(DIR);
closedir(DIR);
$random = int rand @files;
open (FILE, $files[$random]);
while (){
print $_;
}
close (FILE);
exit;
нужно его переделать так чтобы он за один раз выводил 3 банера рядом И ЧТОБЫ ОНИ НЕ ПОВТОРЯЛИСЬ !!!