nkfやkkcコマンドを使わずにperlでファイルの文字コードを判定

Linuxでファイルの文字コード判定といえばnkfやkkcなどのコマンドを用いた方法が多数見受けられますが
入っていないこともあるわけで・・・
入れてしまえば良いのだけど、余計なものを入れたくないような場合に
恐らく標準的に入っているであろうperlを用いてファイルの文字コードを判定する方法です

/tmp/test.txtの文字コードを判定するのであれば

$ perl -nle 'use Encode::Guess; print Encode::Guess::guess_encoding($_,qw/shift-jis euc-jp 7bit-jis utf8/)->name;' /tmp/test.txt
utf8