my $winfail = eval 'use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>0 );';
if ($winfail and $os =~ /win32/i) {
  die "Running on Windows and couldn't load TieRegistry\n";
}