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;
}