CREATE FUNCTION link_agg (text,text,text)
RETURNS text AS '
  return $_[0] . qq[<a href="http://www.domain.com/$_[0]" class="body_link">$_[1]</a><br>];
' LANGUAGE 'plperl';