foreach $i (keys %Config) {
  print "$i\n";
}
##</code><code>##

$build_prefix = substr Win32::GetBuild, 0, 2;

if ($build_prefix == '36') {
  # do something for .NET
} elsif ($build_prefix == '37') {
  # do something for 2003
}