#!/usr/bin/perl

use strict;
use warnings;

use Monks;

my $object = Monks->new;

for my $animals ( qw(Cats Alligators Rabbits) ) {
	print "Checking if $animals are furry:\n";
	print $object->check_fluffy("$animals"), "\n\n";
}

print "Fur texture for Cats: ", $object->find_fur_texture('Cats'), "\n";

exit 0;