#!/usr/bin/perl
use strict;
use warnings;
 
use DBI;
 
use Data::Dumper;

my $dbh = DBI->connect('dbi:ODBC:DSN=SqlExpress;UID=USER;PWD=pass;Regional=No;') or die "Can't connect: $!";
$dbh->{'LongReadLen'} = 40000;
 
my $sql = 'SELECT crcp_cod_grupo, crcp_cod_prato FROM REST.dbo.CRCP_PRATO WHERE crcp_cod_grupo = "E"';
my $sth = $dbh->prepare($sql);
$sth->execute(1, 10);
while (my @row = $sth->fetchrow_array) {
   print "Grupo: $row[0]  Prato: $row[1]\n";
}
 
$sth->execute(12, 17);
while (my $row = $sth->fetchrow_hashref) {
   print "Grupo: $row->{crcp_cod_grupo}  Prato: $row->{crcp_cod_prato}\n";
}
 
$dbh->disconnect;