use Win32::OLE;

$asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection");
$conn = $asynconn->Connect( "", "", ".", 5 );
$session = $conn->Session;
$mdlName = $session->CurrentModel->FileName;
$solidProperties = $session->CurrentModel->GetMassProperty(Nothing);
$Mass = $solidProperties->Mass;
print "solidProperties: $solidProperties", "\n";
print "mdlName: $mdlName", "\n";
print "Mass: $Mass", "\n";

$conn->Disconnect(2);