view release on metacpan or  search on metacpan

bin/eva-titlenize  view on Meta::CPAN

#!perl
use strict;
use warnings;
use utf8;

use Acme::EvaTitlenize;
use Encode;
use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);

my $upper_right;

Getopt::Long::GetOptions(
    'u' => \$upper_right,
);

my $str1 = Encode::decode_utf8(shift @ARGV);
my $str2 = Encode::decode_utf8(shift @ARGV);