Select Code to Download

#!/usr/bin/env perl

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

MainLoop;

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

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

#!/usr/bin/env perl

...
    $slave_frame->Label(-text => 'No slave supplied!')->pack;
    MainLoop;
}

$ pm_1171590_tk_embed_master.pl

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

$ pm_1171590_tk_embed_master.pl pm_1171590_tk_embed_slave.pl

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