You can also try my Sys::Info module for a more detailed information:

use Sys::Info;
print Sys::Info->os->name( edition => 1, long => 1 );
[download]

Sample output: Windows Vista Home Premium Edition Service Pack 2 build 6002