view release on metacpan or  search on metacpan

scripts/convert/text2utf8.pl  view on Meta::CPAN

#!/usr/bin/perl
#

use strict;

use Getopt::Std;
use Encode;
use File::BOM qw( :all );

use vars qw/$opt_l $opt_e/;

getopts('l:e:');

my $lang = $opt_l || 'unknown';
my $enc = $opt_e || LangEncoding($lang);


binmode(STDIN);