$top->Button(
	-activebackground => 'green',
	-text => "GO!",
	-command => sub {
		my @selected = $lb->curselection;
		foreach (@selected){
			chomp$_;
			push @systemNames, "$systems[$_]";}
			my $goto = join(" ",@systemNames);
			my $proc2 = $mw => Proc::Background->new("cssh -G -T 'OOPCSSH' $goto");
			@systemNames = ();
		}
)->pack(  -before => $lb, -side => 'bottom', -fill => 'both');	


MainLoop;