if ($peer) {
        $msg .= $cgi->scrolling_list(-name => 'peer', -value => \@chat_user, default => $peer, size => 5, multiple => 'false');
    } else {
        $msg .= $cgi->scrolling_list(-name => 'peer', -value => \@chat_user, default => "All", size => 5, multiple => 'false');
    }