print "Content-type: text/html\n\n";

foreach my $file (@files) {
    open FILE, $file or die "Can't open file: $!";
    while (<FILE>) {
        print $_;
    }
}