#!/usr/bin/perl
print "Content-type: text/html\n\n";
#print 'Registration Form
#';
$header = "regtop.txt";
open(HEADER,"<$header") || die "Can't open header information file!";
@headerDat = ;
foreach $nextLine (@headerDat)
{
$nextLine =~ s/%(..)/pack("c",hex($1))/ge;
print($nextLine);
}
$htmlInp = "table.txt";
open(HTMLTABLE, "<$htmlInp");
@tableDat = ;
foreach $nextString (@tableDat)
{
print $nextString;
}
$bottom = "regbottom.txt";
open(BOTTOM,"<$bottom") || die "Can't open header information file!";
@bottomDat = ;
foreach $nextLine (@bottomDat)
{
$nextLine =~ s/%(..)/pack("c",hex($1))/ge;
print($nextLine);
}
#print'';