use Win32;
use Win32::ODBC;

my $dsn = "Hydra_FE";
my $qry = "dbo_vfunction_application";


my $dbh = new Win32::ODBC($dsn) || die "\nError=>\t$^E : $!\n";
print "\nError:  $^E\n" if (! $dbh);

my $result = $dbh->selectall_arrayref("SELECT DISTINCT(application) FROM dbo_vfunction_application WHERE group_name='Procurement'");
foreach (@$result) 
{
   print @$_;
}

##</code><code>##

Can't locate auto/Win32/ODBC/selectall_a.al in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .)
at U:\scripts\odbc1.pl line 14