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

##</code><code>##

my $pane = $mw->Scrolled('Pane', -bg => 'white', -scrollbars => 'osoe') ->place( -anchor=>'nw',-y=>110,-x=>110);
	my $client;
	foreach $client (@arraylist){
		#$pane->Label(-text => "$client")->pack;
		$pane->Checkbutton(
        -text     => "$client",
        -onvalue => 1,
        -offvalue => 0,
        #-variable => \$cbvalue[$i],
        -font => 'big',
        -bg => 'lightseagreen',
		)->pack();
	}