Select Code to Download

my %foo; # Store here when fetching fields
my $sth1 = $dbh->prepare ("select * from foo");
...
while ($sth1->fetch) {
    $sth2->execute;
    }

my %rec;
my $sth1 = $dbh->prepare ("select * from foo");
...
while ($sth1->fetch) {
    $sth2->execute;
    }