#!/usr/bin/perl

print "Content-type:text/html\n\n";
open(TOP,"top.html");
print while(<TOP>);
close(TOP);

print qq~<table width=100% align=center><tr><th>Currency</th><th>Exchange Rate</th><th>Regular License</th><th>Business License</th></tr>
    ~;

require "/home/bbv2/v2/amounts.pl";
my $amt = &amounts;

foreach ('uk','usa','ca','cn','jp','eu','aus') {
    print qq~<tr align=center><td>$amt->{$_}->{currency}</td><td>$amt->{$_}->{fromgbp}</td><td>$amt->{$_}->{prefix}$amt->{$_}->{per_pur}$amt->{$_}->{suffix}</td><td>$amt->{$_}->{prefix}$amt->{$_}->{bus_pur}$amt->{$_}->{suffix}</td></tr>~;
}

print qq~</table><br><br><center><a href="index.bhtml">Home</a></center>~;

open(BOT,"bottom.html");
print while (<BOT>);
close(BOT);