BEGIN {
    if ($^O ne "linux") {
        eval "use Win32API::Registry; use Win32::TieRegistry; 1" or die $@;
    }
}