use Win32::OLE;
use Win32::OLE::Const ("Microsoft Speech Object Library");

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