use strict;
use warnings;
use Win32::OLE;

my $ear = Win32::OLE->new('SAPI.SpSharedRecognizer');
my $context = $ear->CreateRecoContext();