use Win32::TieRegistry;

$Registry->Delimiter("/");
print $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Classes/HTTP/shell/open/command"},"\n";