my $dbc = $self->cfg('db') or die("Missing ...cut");
	my $dbh = DBI->connect(
			$dbc->{dsn},
			$dbc->{username},
			$dbc->{password},
			$dbc->{attributes},
	) or die("Could not connect to DB " . DBI->errstr());
	
	my $sql = qq~
	SELECT keyword
	FROM keywords
	...
	~;
	
	my $sth = $dbh->prepare($sql) or die("prep: " . $dbh->errstr());
	my $rv = $sth->execute( $shop_id ) or die("exec: " . $dbh->errstr());
	
	while( my $href = $sth->fetchrow_hashref() ) {
		print $href->{keyword};
		Devel::Peek::Dump($href->{keyword});
	}