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