#!/usr/bin/perl

use DBI;

$dsn = shift;
$query = shift;
$dbd = "dbi:ODBC:$dsn";

print STDERR "Connecting to DSN $dsn\n";
$db = DBI->connect($dbd);
if(!defined $db)
 {
  print $DBI::errstr,"\n";
  exit 1;
 }
print "Query: $query\n";

$h = $db->prepare($query);
$h->execute;
$save = $count = $h->rows;
while($count > 0)
 {
  @row = $h->fetchrow;
  $row = join("|",@row);
  print "$row\n";
 }
$h->finish;
$db->disconnect;