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

##</code><code>##

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