Need Perl OLE help

[JoeGilligan]

Hey Everyone,
I am really stuck...possibly more stuck than almost anyone has ever been in his/her entire life. I am trying to write a Perl script that uses Visio to draw a 'connector' that is attached to two rectangles, however, I am having trouble getting the connector object to draw.
I have:

our $Visio = Win32::OLE->new('Visio.Application') or die "Cannot locate Visio.\n";
$Visio->{'Visible'} = 1;
our $VDocs = $Visio->Documents;
our $VDoc = $VDocs->Open("C:\\visio\\test.vsd");
our $VPage = $VDoc->Pages->Item(1);
our $VShapes = $VPage->Shapes;
$connector = $VPage->Drop($Visio->ConnectorToolDataObject, 2, 2);
 

Also, I think the VB code for drawing a connector looks something like this

Set line = ThisDocument.Pages(1).Drop(Visio.Application.ConnectorToolDataObject, 2, 2)
 

The Perl part isn't working for me. If you could help me I'd really appriciate it. I am pretty noob with Perl OLE.
Thanks,
Joseph

[eWish]

I have not worked with Microsoft Visio, but the Visio Modules are designed for that purpose. I would have a look and see if the modules do what you need.

If someone else here is able to help you then I would consider posting at perlmonks as well.
--Kevin