use if $^O eq "MSWin32", Win32API::Registry => qw(:ALL);