Select Code to Download

map { pox $_ } $montagues, $capulets;

require House;
map { pox $_ }
map { House->new($_) }
    qw(Montague Capulet);

pox $_ foreach map { House->new ($_) } qw (Montague Capulet);

BEGIN{ *plague = \&pox;}