Select Code to Download

while(fetchrow_hashref)
{print qq($data->{field1}\n);

while(fetchrow_hashref)
{
...

# end original while loop
}