my $terminal = $mw->Toplevel();
my $xtid = $terminal->id();
my ($xtId) = sprintf hex $xtid;
system("xterm -into $xtId -hold -e ls &");