#!/usr/bin/perl
# vim: ft=perl:fdm=marker:fmr=#<,#>:fen:et:sw=2:
use strict;
use warnings FATAL => 'all';
use autodie  qw(:all);

use File::Extension qw(extplain);


for my $what(@ARGV) {
  printf "%-10s  %s\n", $what, extplain($what);
}
