#!C:\Perl\bin\PerlEx30.dll -w
use strict;
use DBI;
my ($DBH, $STH, @Release);
$DBH = DBI -> connect ('dbi:ODBC:SQLServer', '', '') or die "$DBI::errstr";
$STH = $DBH -> prepare (qq~select GameName, Console, ReleaseLocation, LongDate from dbo.UpcomingReleases order by ReleaseDate asc~) or die "$DBI::errstr";
$STH -> execute or die "$DBI::errstr";
while (@Release = $STH -> fetchrow_array) {
	print qq~<p>$Release[0]
<br />Media: $Release[1]
<br />Date: $Release[3]
<br />Location: $Release[2]</p>~;
}
$DBH -> disconnect;