view release on metacpan or  search on metacpan

bin/uni  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
# PODNAME: uni
# ABSTRACT: command-line utility to find or display Unicode characters

use App::Uni;
use Encode qw(decode);

binmode STDOUT, ':encoding(utf-8)';

@ARGV = map {; decode('UTF-8', $_) } @ARGV;

App::Uni->run(@ARGV);

#pod =head1 DESCRIPTION
#pod
#pod   $ uni ☺
#pod   263A ☺ WHITE SMILING FACE
#pod