group_id	business_unit_name	group_name	sub_group	id	application_name

282	Corporate Services	CS Helpdesk		3658	Adobe Acrobat Full
282	Corporate Services	CS Helpdesk		4120	Internet Explorer
282	Corporate Services	CS Helpdesk		4197	Lotus Notes
282	Corporate Services	CS Helpdesk		4230	Microsoft Access
282	Corporate Services	CS Helpdesk		4291	Netscape Suite
282	Corporate Services	CS Helpdesk		5023	Microsoft Office 2003
282	Corporate Services	CS Helpdesk		5026	Falcon
282	Corporate Services	CS Helpdesk		5038	Microsoft Outlook
282	Corporate Services	CS Helpdesk		5054	Placeware Plugin
282	Corporate Services	CS Helpdesk		5090	Volo View Express
282	Corporate Services	CS Helpdesk		5091	Real Networks Real Player
283	Corporate Services	EMD		            3658	Adobe Acrobat Full
283	Corporate Services	EMD		            4120	Internet Explorer
283	Corporate Services	EMD		            4197	Lotus Notes
283	Corporate Services	EMD		            4230	Microsoft Access
283	Corporate Services	EMD		            4291	Netscape Suite
283	Corporate Services	EMD		            4856	Hummingbird Exceed 8.0 IED
283	Corporate Services	EMD		            5023	Microsoft Office 2003
283	Corporate Services	EMD		            5026	Falcon
283	Corporate Services	EMD		            5038	Microsoft Outlook
283	Corporate Services	EMD		            5054	Placeware Plugin
283	Corporate Services	EMD		            5090	Volo View Express
283	Corporate Services	EMD		            5091	Real Networks Real Player
285	Corporate Services	Procurement		3658	Adobe Acrobat Full
285	Corporate Services	Procurement		4120	Internet Explorer
285	Corporate Services	Procurement		4191	Lofmap
285	Corporate Services	Procurement		4230	Microsoft Access

##</code><code>##

use strict;
use warnings 'all';

use Win32;
use Win32::ODBC;

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


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

if ( $Hydra_db->Sql("SELECT * FROM $qry"))
{
   print "Cool\n";
   print $Hydra_db;
}