Select Code to Download

#!/usr/bin/perl
use warnings;
...
$cont2->add_elem($elem1);
$cont1 == $cont1->get_elem('one')->active_container and say 'ok';
$cont2 == $cont2->get_elem('one')->active_container and say 'ok';

my $e1 = $cont1->get_elem('one');
my $e2 = $cont2->get_elem('one');
$e1->active_container ne $e2->active_container or die;