Select Code to Download

use strict;
use warnings;
...
$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