$q->font({-face=>$fontface,
          -size=>$fontsize,
          -color=>$fontcolor}, 
         $mesg);