my $filter = "('Y' || 'N')";
my $sth = $dbh->prepare(q{SELECT name FROM catagories WHERE catagories.workrelated = ? ORDER BY name});
$sth->execute($filter);