#!/usr/pkg/bin/perl
use lib qw(/arpa/ag/e/edgock/pllib/lib
/arpa/ag/e/edgock/pllib/lib/site_perl);

use strict;
use DBI;
use CGI qw(:standard);

my $query = new CGI;

print $query->header;



my $haveFileSpec = eval { require File::Spec };
my $table_dir = File::Spec->catdir(File::Spec->curdir()); 

my $dbh = 
DBI->connect("DBI:CSV:f_dir=$table_dir", undef, undef,
                    { 'RaiseError' => 1 });
   my($sth);
   $sth = $dbh->prepare("SELECT * FROM bench");
   $sth->execute();
   my ($userid,$name,$address, $name1, $address1, $name2, $address2);
   $sth->bind_columns ( undef,\$userid, 
   \$name, \$address, \$name1, 
   \$address1, \$name2, \$address2);

   while ( $sth->fetch() ) {
	     print "$userid \n"; 
   }
$sth->finish( );
$dbh->disconnect( );
exit;