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