Select Code to Download

#!C:/Perl/bin/perl.exe -w

...
print "\nOS name: ".$Config{'osname'};
print "\nOS archname: ".$Config{'archname'};
print "\nOS version: ".$Config{'osvers'};

#!C:/Perl/bin/perl.exe -w

...
  $os_name         = $os->{'Caption'};
}
print "$os_name\n";