##!/usr/bin/perl
use DBI;
tdbh = DBI->connect("DBI:CSV:")
        or die "Cannot connect: " . $DBI::errstr;
my $sth = $tdbh->prepare("select * from ofphl");
$sth->execute();
    while ($sth->fetch()) {$i++;};
    print ": $i \n";