Select Code to Download

Select or download this

    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');
    }

Select or download this

print $query->scrolling_list(-name=>'list_name',
                                -values=>keys %names,
                                -default=>['eenie','moe'],
                                -size=>5,
                                -multiple=>'true');