open(SQLPLUS,"$CMD|") or die "Could not start SQLPLUS";
 while (<SQLPLUS>) {
   chomp;
   my ($instsid,$sqlexecinfo)=split '=>'; 
   $sidstat{$instsid}{SQLEXECINFO}=$sqlexecinfo;
   print $sqlexecinfo;
   print $sidstat{$instsid};   
 }
 debug(scalar(keys %sidstat)." session state recorded.\n");
 return \%sidstat;