#!/usr/bin/perl -s

use strict;
#use warnings;

our($lines,$l,$e);

$lines ||= 50;

my $opcl = $l ? "-o $l" : "";
my $opce = $e ? "-e $e" : "-e suffixes3";
my $a;

for (@ARGV) {
 $a = `w3m -dump -T text/html < $_ | head -$lines | langident $opcl $opce`;
 
 print "$_ : $a;";

}