# using the csv function, all in memory
csv (out => "foo.csv", in => $dbh->selectall_arrayref ($sql));