#!/usr/bin/env perl -l

use strict;
use warnings;

use Monks;

my $obj = Monks::->new;

for (qw{Cats Alligators Rabbits}) {
    print $_, ': furry? ', $obj->is_furry($_) ? 'Yes' : 'No';
}

print 'Fur texture for Cats: ', $obj->find_fur_texture('Cats');