#!c:\perl\bin\perl.exe
$|++;                            #sets $| for STDOUT
use CGI qw(-debug);

print "Content-type: text/plain\n\n"; 

use DBI;

$dbase = "DBI:ODBC:rbase";                             #Current Database being used

    $dbh ||= DBI->connect($dbase);
    $dataObject = $dbh->prepare("SELECT * FROM product")or die   "Can't prepare to verify parts $DBI::errstr";
    $dataObject->execute()or print "Can't execute to verify parts $DBI::errstr";
    while (@tname = ($dataObject->fetchrow_array))
      {
           print "@tname";
       }