#!/Perl/bin/perl 

require "cgi-lib.pl";
require "common.pl";

print &PrintHeader;

&initial;

$input="putgb.htm";

open(HTM,$input);
while (<HTM>) {
      print $_;
}
close HTM;
exit;