#!/usr/bin/perl -w
use warnings;
use strict;
use Tk;

my ($x,$y,$count) = (0,0,0);
my @systems = qw(system1 system2 system3 system4 system5 system7);

foreach(@systems) {
  
 $count++;
 
 if (fork == 0) {
 
   #$widget->geometry("wxh+x+y")
   my $top = new MainWindow;
   $top->geometry('100x100'.'+'.$x.'+'.$y);

   $top => "cssh -G -T 'OOPCSSH' -l username $_";  ##MY PROBLEM LIES HERE. If I simply `the command/call` it runs but still no placement control.

   $top->Button(-command => sub { warn "top$_" })->pack;
   MainLoop;
   CORE::exit();
  }

if( $count % 3 == 0) {$y += 150; $x = 0 }
$x += 150;

}
MainLoop;