Thanks everybody for your quick answers!
Finally I used Encode::Guess and it works for me...I don't really know if it will on other computers...
I also changed glob function for opendir