$key = 'HKEY_CURRENT_USER\Software\Microsoft\WAB\WAB4\Wab';
#use Win32::TieRegistry;
use Win32::TieRegistry ( Delimiter=>"/" );
$wabPath = $Registry->{$key};