Select Code to Download

# Retrieve answerset.          
while($odbc_session->FetchRow())
...
       # Stores the hash variable.
    eval $odbc_session->Data();
   }

while($odbc_session->FetchRow())
   {
...
##  push @pmsr, \%pmsr; # Pushes each value in the DWH_PrfMsr column i
+nto the @pmsr.
    push @pmsr, {%pmsr}; # Pushes an anon.hash-ref copy of %pmsr onto 
+ @pmsr. 
   }

my @datetime = ((localtime)[0,1,2,3,4,5]);

...
    $count++;    
}
my($sec,$min,$hour,$day,$month,$year) = @datetime;

my($sec,$min,$hour,$day,$month,$year) = map {sprintf("%02d",$_)} (loca
+ltime)[0..5];
$month++;
$year += 1900;