Yes, use Win32::GetOSVersion()

Look at Re: Windows Version Detection for a previous discussion on the subject.

Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;