> use DBI; 
> $dbh = DBI->connect('dbi:ODBC:' . $dsnname, $dbuser, $dbpwd) or... 
> $sth = $dbh->prepare($sql) or die... 
> do { 
>         my @row; 
>         my $line=1; 
>         # fetch each row in array 
>         while (@row = $sth->fetchrow_array()) 
>         { 
>                 print ($line + 1); 
>                 print ". "; 
>                 # print each field in a row 
>                 for ($i=0;$i<$#row;$i++) 
>                 { 
>                         print $row[$i] 
>                 }; 
>                 print "\n"; 
>                 $line++; 
>         } 
>         # see if there's more records to show 
> } while ($sth->{odbc_more_results});

$sth = $dbh->prepare($sql) or die...  
$sth->execute; 
 
do {

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use DBI;  
 
# Define $dsnname, $dbuser, $dbpwd; 
... 
 
my $dbh = DBI->connect('dbi:ODBC:' . $dsnname, $dbuser, $dbpwd) or ...  
$sth = $dbh->prepare($sql) or die...  
$sth->execute(); 
my $line = 1;  
# fetch and print each row in array  
while (my $row = $sth->fetchrow_arryref())  {  
      print $line++, ": ",  join(', ', @$row), "\n"; 
}