#!/usr/bin/perl

use warnings;
use strict;
use Encode qw/find_encoding/;

sub status($);

open GET, "wget http://www.iana.org/assignments/character-sets --output-document=- |"
   or die $!;

while(<GET>)
{
   if( m/(Name|Alias)\:\s+(\S+)/ )
   {   my $status = status $2;
       s/^/$status/e;
   }
   else
   {   s/^/  /;
   }
   print;
}

sub status($)
{   my $charset = shift;
    $charset =~ m/^none$/i and return ' ';

    my $enc = find_encoding $charset;
    defined $enc ? '+' : '*';
}
