use warnings;
use strict;
use Test::More;

my $exp = "two";
my $got = "Two";

ok $exp eq $got or diag explain [$exp, $got];

done_testing;