#!/usr/bin/perl -w

use strict;
use Lingua::Lid qw/lid_ffile/;

foreach my $file (@ARGV)
{
    my $res = lid_ffile($file);

    print $file, ": ";

    unless ($res)
    {
        print $Lingua::Lid::errstr, "\n";
        next;
    }

    print $res->{language}, " - ", $res->{encoding}, "\n";
}

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