print "Content-type: text/html\n";
print "\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Perl Transaction Values</TITLE>";
print "</HEAD>\n";
print "<BODY>\n";
print "<p align=center><font size=5><strong>Perl ";
print "<img src=../../images/pearl.gif ";
print " width=105 height=91 align=middle>";
print " Transaction Values</strong></font></p>";
print "<p align=center><font size=4>";
print "The Perl Merchant assesses the following ";
print "values for this transaction.</font></p>";
print "<table BORDER=1 cellspacing=0 cellpadding=3 align=center>\n";
for $key (sort keys %ENV) {
  if (substr($key,0,4) eq "HTTP"){
    print "<tr><td>$key</td><td>$ENV{$key}</td></tr>\n";
  }
}
for $key (sort keys %ENV) {
  if (substr($key,0,4) ne "HTTP"){
    print "<tr><td>$key</td><td>$ENV{$key}</td></tr>\n";
  }
}
print "</table>\n";
print "</BODY>\n";
print "</HTML>\n";
 

