#!c:/opt/perl -w
. . . 
use if $^O=~/^win/i, Win32::TieRegistry;
. . .