$sqlStr =  "select createwbparserun( '$directory' , '$filename'  ) ";
    print $sqlStr.  "\n" ;
    my $sth = $db_in->prepare( $sqlStr );
    $sth->execute();
    
    my $aryRef = $sth->fetchall_arrayref([0]);
    my @a =  @$aryRef;
    print "Reference: $aryRef\n";
    print "Dereferenced: @a\n";
       
    
    ##print  @$ary;
    print Dumper @a;
    $wb_runkey = $a[0];
        
    print "WORKBOOK run key: " . $wb_runkey . "\n" ;
    
die;