CODE : Set Oracle date format
BEGIN {
  $ENV{NLS_LANG}="AMERICAN_AMERICA.WE8MSWIN1252";
} 

use common_lib_t11;
#${&dbh}->do("alter session set NLS_DATE_FORMAT='DD-MON-YYYY HH24:MI:SS'");


print 'Got date: ' . ${&dbh}->selectrow_array("SELECT SYSDATE FROM DUAL") . "\n";


print 'Got global_name: ' . ${&dbh}->selectrow_array('select * from global_name') . "\n";