#!/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;

##</code><code>##

$VAR1 = [
'C:\\Documents and Settings\\johnday.MERCURY\\My Documents\\Pamela\\Voicemsg\\',
          1
        ];