Select Code to Download

while(my @row_array=$sth->fetchrow_array)
    {
...
        }
    
    }

    my $orun=join('',@iarray_run); 
    my $opend=join('',@iarray_pend);