#!C:\Perl\bin\perl.exe
use strict;
use DBI;
use CGI::Carp qq~fatalsToBrowser~;
print "Content-type: text/html\n\n";
my ($DBH, $STH, @Quote, $Statement);
$Statement = qq~select top 1 Quote, CharacterName, GameTitle from dbo.GameQuotes order by newid()~;
$DBH = DBI -> connect ('dbi:ODBC:SQLServer', '', '') or die "$DBI::errstr";
$STH = $DBH -> prepare (qq~select top 1 Quote, CharacterName, GameTitle from dbo.GameQuotes order by newid()~) or die "$DBI::errstr";
$STH -> execute or die "$DBI::errstr";
@Quote = $STH -> fetchrow_array;
print qq~$Quote[0]
<br />--$Quote[1]
<br />$Quote[2]~;
$DBH -> disconnect;