use strict; use warnings; use Win32::OLE; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Word'; $Win32::OLE::Warn = 2; # Throw Errors, I'll catch them my $word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application', 'Quit'); #get the word +object $word->Documents->Add || die("Unable to create document ", Win32::OLE->LastError()); $word->run("test", "D:\\Prasad\\Projects\\tools\\vdd"); #### Sub test(teststring as String) MsgBox(teststring) End Sub