#!/usr/bin/perl
use strict;

# this program takes a HTML header, a middle  and a HTML footer, and
# hitches them together.

# start by telling browser to expect HTML

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

my ($filename) = "nineladies";

sub display_file {
  my ($text_line);
  my ($HANDLE);
  my ($filename) = @_;
  open (HANDLE,"$filename");
  while (!eof(HANDLE)) {
    $text_line=<HANDLE>;
    print "$text_line";
  };
  close (HANDLE);
};

display_file ("data/$filename.top");
display_file ("data/$filename.mid");
display_file ("data/$filename.btm");