Select Code to Download

#!C:/Perl/bin/perl
use strict;
...
  }
  print "---\n";
}

  # we copy the array here because fetch (currently) always
  # returns the same array ref. XXX
...
  else {
    push @rows, [ @$row ] while($row = $sth->fetch);
  }