Select Code to Download

$sth = $dbh->prepare("SELECT foo, bar FROM table WHERE baz=?");

$sth->execute( $baz );
...
while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
}

my $LIMIT = 30;

my $sth = $dbh->prepare("SELECT foo, bar FROM table WHERE baz=?");
...
}

#do stuff with @rows