How do you want to do it? I suppose logging in via Telnet / SSH and issuing the appropriate command? Or querying with 'wmic' for Windows?

I can only assume from the lack of detail provided in the OP, you mean OS fingerprinting, and Perl has some options:

Net::SinFP: http://search.cpan.org/perldoc?Net%3A%3ASinFP

Net:P0f: http://search.cpan.org/perldoc?Net%3A%3AP0f

thanks. yes i was meaning OS fingerprinting. i will try these modules and see

Another option would be Nmap::Scanner

Update:
This module can do the finger printing as well via its guess_os() method. $scanner->guess_os();