use POSIX; my ($sysname, $nodename, $release,$version, $machine)= POSIX::uname(); [download]
In reply to Re: To find OS in perl using API by Thelonius in thread To find OS in perl using API by Anonymous Monk