use if ($^O eq "MSWin32"), "Win32API::Registry '(:ALL)'";
use if ($^O eq "MSWin32"), "Win32::TieRegistry ( Delimiter=>\"/\" )";