Select Code to Download

$sth = $dbh->prepare("select a, b, c from foo");
$sth->execute;
...
    # $row->[1] is column 'b', 
    # etc...
}

while(($one, $two, $three) = $sth->fetchrow_array) {
    # $one, $two and $three are columns a, b and c
}