Select Code to Download

#!/usr/bin/perl
use warnings;
...

print "Not OK" if $elem1->active_container != $cont1;

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/container_elem.pl 
OK
OK
Not OK
Compilation finished at Fri Oct  8 17:48:07