$ set var
var=%OS%

$ perl -MWin32 -e "print $ENV{var} .= ' evaled' , '  => ', Win32::ExpandEnvironmentStrings($ENV{var})"
%OS% evaled  => Windows_NT evaled