eval 'use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>0 );' if $^O =~ /win32/i;