my $sql = q{ ... };
if ( $dbh->selectrow_array(
       $sql,
       { 
        Slice => {}
       },
       (defined $q->param('forum'))+0,
       $q->param('forum'),  
       (defined $q->param('category'))+0,
       $q->param('category')
    ) >= 1 
     ) { ... }