sub run_query
{
	my ($query) = @_;

	my $sth = $dbv->prepare( $query );
	$sth->execute();

	my @new_row;

	while ( my @row = $sth->fetchrow_array() )
	{
		my $string  = join( ',', @row );
		$string    .= "\n";

		push( @new_row, $string );
	}

	return @new_row;
}