#!/usr/bin/perl -w
use strict;
use Data::Dumper;

use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>1);
$Registry->Delimiter("/");

my $swKey = $Registry->{"CUser/Software/"};
my $pamKey = $swKey->{"Pamela/Settings/1.0/"};
my $vmDir = $pamKey->{ "m_voiceMessagePath" };

print Dumper $vmDir;