Perlで使えるエンコードの一覧を取得する

　備忘録備忘録。。。
　自分のPerl実行環境で使えるエンコードの一覧を得るにはこうする。

#!/usr/bin/perl
use utf8;  #-ソースがUTF8だという宣言
use Encode;
binmode STDOUT, ":encoding(utf8)";  #-画面に出力したい文字コード
binmode STDERR, ":encoding(utf8)";  #-エラー出力に使いたい文字コード
binmode STDIN, ":encoding(utf8)";  #-標準入力から入ってくる文字コード

@list = Encode->encodings(":all");
for (@list) {
	print $_ . "\n";
}
exit;