use Win32::TieRegistry ( TiedHash => '%RegHash' );
foreach $subkey (keys( %{ $Registry->{"HKEY_CLASSES_ROOT\\batfile\\"} } ) ) 
{
  print $subkey . "\n";
}