my %clear_command = ( MSWin32 => 'cls', Linux => 'clear' ... );

system (1, $clear_command{ $^O }  );

##</code><code>##

print Win32::GetOSName(),Win32::GetOSVersion();

# output:
Win10Business (64-bit)100179362002561