sub _show_bugs(){
    my $args = shift;
    my @headers = map { "*$_*" } qw/ ID Title Priority Assignment State /;
    my $fmt = "| %s | %s | %s | %s | %s |\n";
    my $sql =<<EOF;
SELECT
  'fog' || b.bugid,
  b.sTitle,
  p.sPriority,
  u.sFullName,
  s.sStatus
FROM Bug b
  LEFT JOIN Priority p  ON p.ixPriority = b.bugpri
  LEFT JOIN Persion_l u ON u.ixPerson   = b.bugassign
  LEFT JOIN Status s    ON s.ixStatus   = b.bugstate
WHERE b.bugid IN ($args)
EOF
    my $db = _connect();
    my $rows = $db->fetchall_arrayref($sql);  # note: is slurping in all rows
    return join '', map { sprintf $fmt, @$_ } \@headers, @$rows;
}