Select Code to Download

  my $result_array  = $sth->fetchall_arrayref;
  foreach my $row (@{$result_array}) {
    print join (",", @$row),"\n";
    print FH join (",", @$row),"\n";
  }

  print "==>@{$result_array}<==\n";

  if (@{$result_array} eq “”) {
    <some message>
  } else {
    <do the output>
  }