my $link = "err";

  if ($q->param('title') eq "Political Animal")
    {
      $link = "pa";
    }
  ...