my $ccn = Text::Hidden->new( "1234567887654321",
      obfuscator => sub { "XXXXXXXXXXXX".substr($_[0], -4) },
  );