#!/usr/bin/perl -l

use strict;
use warnings;
use mw; 
use Data::Dumper;

my $puzzle = Mystery::Word->new( debug => 1 );
my %hints = $puzzle->create('camel');
print Dumper(\%hints);

# test solution

my $p2 = Mystery::Word->new( size => 5 );
$p2->hint(%hints);
print for $p2->solve();