my $xtermContainer = $canvas->Frame(-container => 1);
my $xtid = $xtermContainer->id();
system("xterm -into $xtId -e ./xtermjob.pl &");