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

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);
  print "$table_dir";
  $sth = $dbh->prepare("SELECT id FROM images");
  $sth->execute();
#   my($id,$imgord,$loc,$cat,$shtdesc,$lngdesc,$imgdate,$ctry);
  my($id);
#   $sth->bind_columns (undef,\$id,\$imgord,\$loc,\$cat,\$shtdesc,\$lngdesc,\$imgdate,\$ctry );
  $sth->bind_columns (undef,\$id );
  while ( $sth->fetch() ) {
            print "in loop\n";
            print "$id \n";
  }
$sth->finish( );
$dbh->disconnect( );
exit;