#!/usr/local/bin/perl

srand;
print "Content-type: text/html\n\n";
$n=1;
foreach $file (<random/*.html>) {
open (FILE, "<$file")|| &ErrorMessage;
@file = <FILE>;
print (@file);
close(FILE)
}