#!C:\strawberry\perl\bin\perl.exe
use DBI;
use Tie::File;
$dbh = DBI->connect('dbi:mysql:Database','username','password')
or die "Connection Error: $DBI::errstr\n";
$sql = "select cost, data from table";
$sth = $dbh->prepare($sql);
$sth->execute
or die "SQL Error: $DBI::errstr\n";
$sitedata="/xampp/cgi-bin/Smartware_LTD_Website/aberKarateCosts.html";
open(DAT,">>$sitedata") || die("Cannot Open File");
print DAT"<div id='costtable'>";
print DAT"<table border='1'>";
print DAT"<tr><th>$sth->{NAME}->[0]</th><th>$sth->{NAME}->[1]</th></tr>";
while (@row = $sth->fetchrow_array) {
print DAT"<tr><td>$row[0]</td><td>$row[1]</td></tr>";
}
print DAT"</div>";
close FILE;