Select Code to Download

our @arraylist;
if connected
 push(@arraylist, $clientIP)

my $pane = $mw->Scrolled('Pane', -bg => 'white', -scrollbars => 'osoe'
+) ->place( -anchor=>'nw',-y=>110,-x=>110);
    my $client;
...
        -bg => 'lightseagreen',
        )->pack();
    }