Hi,
Thanks for your reply.
In windows, It is not working for all the countries.
I'm glad If you run the script in windows and pass the output of the above script
. Please suggest me If I have missed any modules which are related to  Finance::Quote.

I believe that this problem is not related with code and  Finance::Quote module. Some utility modules might be causing this issue. Since As I said earlier the script working fine in Linux.
Thanks,
Raja