Help for this page
#!/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