What if it's a multi-user operating system with only one user? :) OK, more seriously, you can check the operating system name via the special scalar variable $^O.

perldoc perlvar has very useful info for $^O, including what to do if you want greater precision in distinguishing between versions of MS Windows.