#!/usr/local/bin/perl
use strict;
use warnings;

use DBI;

my $dbh DBI->connect('dbi:AnyData(RaiseError=>1):','csv_sep_char=\;');
$dbh->func( 'callsigns',
 			 'CSV',
			 'C:\\Documents and Settings\\My Documents\\MyProjects\\ParsingXML\\log.jdb',
		   	 'ad_catalog');
my $sth = $dbh->prepare("SELECT Station, Date, Time FROM callsigns");
$sth->execute();
while (my $row = $sth->fetch) {
       print "@$row\n";
}