use warnings;
use strict; 
use Win32::TieRegistry ( TiedHash => '%RegHash' );


my $Registry=\%RegHash;

my @reg=%{ $Registry->{"HKEY_CLASSES_ROOT\\batfile\\"} };
for ( @reg )
{
    print "$_\n";
}