#!/usr/bin/perl -w
use srtict
use CGI qw/:standard :html3/;
use CGI::c
Carp qw(warningsToBrowser fatalsToBrowser);
use CGI::Pretty
print CGI::header();
print CGI::start_html( 'chat room');
print CGI::h3( 'this is the chat room for the video game set up');
print CGI hr();
print CGI::start_html_fill_in_form
print CGI::start_form( -action =>'http://fischer.ohsu.net/cgi-bin/chat_room.cgi',method => 'write');
###############################################################################
print textfield(-name=>'chatroom',
-value=>'',
-size=>100,
-maxlenth=>200);
print filefield(-name=>'chat_room',
-default=>'',
-size=>100,
-maxlength=>200);
print CGi::end_html_fill_in_form
print CGI::end_form();
print CGI::hr();
print CGI::end_html();
exit 0;