use strict; 
use warnings;

use Win32::TieRegistry;

my @reg = keys %{ $Registry->{"HKEY_CLASSES_ROOT\\batfile\\"} };

for ( @reg )
{
    print "$_\n";
}