use Win32::Guidgen;
use Win32::OLE;

my $guid = Win32::Guidgen::generate(); #Generate GUID for Product code.

# instantiate the Developer Automation interface
$dev = Win32::OLE->new("ISWiAutomation.ISWiProject");

# open a project file.
$dev->OpenProject("C:\\InstallShield 2010 Projects\\Test.ism") or die "Can not open project file:$!";

print "ProductName: " , $dev->ProductName, "\n",
"ProductVersion: ", $dev->ProductVersion, "\n";

# close the project
$dev->CloseProject( );