Help for this page

Select Code to Download

Select or download this

#!perl;

...
print "$BNAME had a little $ANIMAL, little $ANIMAL, little $ANIMAL,\n"
+;
print "$BNAME had a little $ANIMAL,\n";
print "Its fleece was $Fleece::color\n";

Select or download this

package Fleece;

...
our $color = "white as snow.\n";

1;