#!/usr/bin/perl

use strict;
use warnings;
use Module::Load;

my $os = 'Yet Unknown';

if ( $^O =~ /MSWin/ ) {
    load 'Win32';
    $os = Win32::GetOSName();
}

print $os;