Select Code to Download

my $sth = $dbh->prepare ("select * from foo");
$sth->execute;
csv (out => "foo.csv", in => sub { $sth->fetch }, undef_str => "\\N");