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

my $mw = MainWindow->new();

my $xtermContainer = $mw->Frame(-height=>400,
                                -width=>300,
                                -container => 1)->pack();

my $xtid = $xtermContainer->id();
print "$xtid\n";
# converting the id from HEX to decimal as xterm requires a decimal Id  
my ($xtId) = sprintf hex $xtid;
print "$xtId\n";

$mw->Button(-text => "Exit",
           -command => sub{ exit}
           )->pack(  );
$mw->Button(-text => "Xterm",
          -command => sub{ system("xterm -into $xtId  &") }
          )->pack(  );

MainLoop();