use strictures;
use Encode;

my $name = shift || die "Give an encoding!\n";

my $input = shift || "Some string...";

my $encoding = find_encoding($name)
    or die "No encoding found for $name\n";

binmode STDOUT, ":encoding(UTF-8)";

print $encoding->decode($input), $/;

__END__