#!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 Quote, CharacterName, GameTitle from Finaldbo.RandomQuote~;
$DBH = DBI -> connect('dbi:ODBC:SQLServer', '', '') or die "$DBI::errstr";
@Quote = $DBH -> selectrow_array($Statement);
print qq~$Quote[0]
<br />--$Quote[1]
<br />$Quote[2]~;
$DBH -> disconnect;