#!/usr/local/bin/perl -w

#use 5.004;
#use strict;
use CGI;
#use Fcntl qw(:flock);

sub bail {
    $error ="@_";
    print h1("Unexpected Error");
    print p($error);
    print end_html; 
    die $error;
}

my (
    $FILENAME,
    $TITLE,
    $USRNAME,
    $PASSWORD,
);
$FILENAME="tt";
$TITLE="Homework Submission System for 95-731";
print header;
print start_html($TITLE);
print h1($TITLE);
print p("test");



print end_html;