Select Code to Download

use warnings;
use strict;
...
print "$BNAME had a little lamb, little lamb, little lamb,\n";
print "$BNAME had a little lamb,\n";
print "It's fleece was $fleece.\n";

package Fleece;

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

1;