#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow::->new(-use => $ARGV[0] || '');

$mw->Label(-text => 'Slave')->pack;

MainLoop;

##</code><code>##

+-------+
| Slave |
+-------+

##</code><code>##

7fcb5c12a4a0 is not a hash at /.../Tk/MainWindow.pm line 53.
Abort trap: 6

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use autodie qw{:all};

use Tk;

my $mw = MainWindow::->new();

$mw->Label(-text => 'Embedded slave:')->pack;

if (length $ARGV[0]) {
    my $slave_frame = $mw->Frame(-container => 1)->pack;
    my $container_id = $slave_frame->id;
    open my $pipe, '-|', "$ARGV[0] $container_id";
    MainLoop;
    close $pipe;
}
else {
    my $slave_frame = $mw->Frame()->pack;
    $slave_frame->Label(-text => 'No slave supplied!')->pack;
    MainLoop;
}

##</code><code>##

$ pm_1171590_tk_embed_master.pl

##</code><code>##

+--------------------+
|  Embedded slave:   |
| No slave supplied! |
+--------------------+

##</code><code>##

$ pm_1171590_tk_embed_master.pl pm_1171590_tk_embed_slave.pl

##</code><code>##

+-----------------+
| Embedded slave: |
|     Slave       |
+-----------------+