tie( $variable, $^O eq 'MSWin32' ? 'Win32::MMF'
                                 : 'IPC::Shareable', { ... } );