#!/usr/bin/perl -w

use strict;
use Lingua::Lid qw/lid_fstr/;
use Encode      qw/encode/;
use Data::Dumper;

my $s = "This posting is introducing Lingua::Lid.";

my $res = lid_fstr($s);
print $res->{language}, " - ", $res->{encoding}, "\n";

$res = lid_fstr(encode("UTF-32BE", $s));
print $res->{language}, " - ", $res->{encoding}, "\n";

print Dumper $res;

# vim: sts=4 sw=4 enc=utf-8 ai et