Use of uninitialized value $reg n concatenation <.> or string at test.pl line 8.
Can't call method "CreateKey" on an undefined value at test.pl line 9.