Select Code to Download

BEGIN {
    if ($^O =~ /win32/) {
...
        import Win32::TieRegistry Delimiter=>"/", ArrayValues=>0;
    }
}

BEGIN {
    if ($^O =~ /win32/) {
...
            or die $@;
    }
}

BEGIN {
    if ($^O =~ /win32/) {
...
            or die $@;
    }
}