$ perl -MEncode::Detective=detect -le " die detect( glob q/da-*/ ) "
windows-1252 at -e line 1.

$ perl -MEncode::Guess -e " die guess_encoding( glob q/da-*/ ) "
No appropriate encodings found! at -e line 1.

$ dir /b "da-*" | perl -MEncode::Detective=detect -e " $f = <>; die detect($f ) "
Died at -e line 1, <> line 1.

$ dir /b "da-*" | perl -MEncode::Guess -e " $f = <>; die guess_encoding($f )  "
No appropriate encodings found! at -e line 1, <> line 1.

$ dir /b "da-*" | perl -MEncode::Guess -e " $f = <>; die guess_encoding($f , q/cp437/)  "
Encode::XS=SCALAR(0x9a622c)
$ dir /b "da-*" | perl -MEncode::Guess -e " $f = <>; die guess_encoding($f , q/cp437/)->name  "
cp437 at -e line 1, <> line 1.