Try:
```perl
$dbh=DBI->connect("dbi:SQLite:$dbname","","",RaiseError=>1,PrintError=>1,sqlite_unicode=>1});
$dbh->exec("PRAGMA case_sensitive_like = 1;");
$sth=$dbh->prepare(qq{select artists.name,artists.artistid,cds.genre from artists,cds where artists.artistid = cds.artistid and name like ? group by name,artists.artistid,cds.genre order by artists.name;}) or die "Can't prepare statement: $DBI::errstr\n";
$sth->execute('$ArtistLetter%') or die "Can't execute statement: $DBI::errstr\n";
warn $DBI::errstr if $DBI::err;
while (@records=$sth->fetchrow_array()) {
```
~~~
--
Regards,
Kees Nuyt
~~~