#!/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;