if ( $os =~ /win32/i ) {
    use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>0 );}
}