or download this
$ perl -MEncode::Detective=detect -le " die detect( glob q/da-*/ ) "
windows-1252 at -e line 1.
...
Encode::XS=SCALAR(0x9a622c)
$ dir /b "da-*" | perl -MEncode::Guess -e " $f = <>; die guess_encodin
+g($f , q/cp437/)->name "
cp437 at -e line 1, <> line 1.