Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $children = map 'My::Child'->new("child$_"), 1 .. 10;
say "Number of Root instances: ", 'My::Root'->count;
say "Number of Child instances: ", 'My::Child'->count;