my $query = "SELECT blah blah stuff to get";
my $sth = $dbh->prepare($query) or die "Can't prepare: $query. Reason: $!";
$sth->execute($user_id)or die "Can't execute: $query. Reason: $!";

open( DATAOUT, ">$filename" );

while ( my $ref = $sth->fetchrow_hashref() ){
	foreach ( keys (%{$ref}) ) {
		print DATAOUT "$_"+":"+"$ref->{$_}\t";
	}
	print DATAOUT "\n";
};