use DBI;

my $dsn = "dbi:Pg:dbname='benchmark_c';host='localhost'" ;

my $dbname = 'benchmark_c';
my $host   = 'localhost' ;
my $port   =  '5432';
my $uname = "postgres";
my $pword = "postgres";

#** ** $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port", "$uname", "$pword");
#** ** $dbh = DBI->connect("dbi:Pg:dbname=$dbname", "$uname", "$pword");

$dbh = DBI->connect("dbi:Pg:dbname='benchmark_c';host='localhost'", "'postgres'", "'postgres'");

print "connected";

$stmt = $dbh->prepare("select appsyskey from appsys where upper(appsysname) = 'LOAD LEHMAN TRADES'");
$stmt->execute();

my $rslts = $stmt->fetchrow_hashref();

my $appsyskey = $rslts->{'appsyskey'};


print $appsyskey;