Select Code to Download

use strict;
use Win32::OLE;
...

print $sugg . "\n";

OLE DOCS...

...
        my $y = Variant(VT_I4|VT_BYREF, 0);
        $Corel->GetSize($x, $y);
        print "Size is $x by $y\n";