%EXPORT_TAGS = (
  Both    => [qw(&lcc_encrypt &lcc_decrypt)],
  Encrypt => [qw(&lcc_encrypt)],
  Decrypt => [qw(&lcc_decrypt)]
);

##</code><code>##

my $upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
my $lower = 'abcdefghijklmnopqrstuvwxyz';

# I didn't do join('' (a..z)) because (in 5.00503)
# it caused errors for some reason.