#!/usr/bin/perl

use strict;
use warnings;

use lib q{.};

use Data::Dumper;

use Letter;

my $s = Letter->new(q{B});

$s->identify;
print Data::Dumper->Dump( [ \$s ], [qw( *s )] ), qq{\n};