use Win32::TieRegistry ( Delimiter => '/' );

 my $key = $Registry->{'HKEY_CURRENT_USER/Software/MyModule/History'};
 my $dir = ($key ? $key->GetValue('Cwd') : 'C:/';