Help for this page

Select Code to Download

Select or download this

  while ( my @row = $DataOut->fetchrow_array ) {
      my $fname = $row[0];
      # ...
  }