#!/usr/bin/perl -w

use strict;
use Gtk2 '-init';

my $window = new Gtk2::Window;
my $socket = new Gtk2::Socket;

$window->add($socket);
$socket->add_id($window_id_of_program_to_embed);
$window->show_all;

Gtk2->main;