eval {
  my $answer1 = $S->getValue('output1');
  1;
};
warn " ERROR : $@\n$^E" if $@;
[download]

Ok, so what your telling me is that the getvalue method does not work because of something to do with threads. I went on the forum you pointed me to and posted a request for help there and what I know thus far.

TO be honest I am not sure what a thread is or how it could be causing a problem. Dispite my ignorance I went to the documentation and found this:

Win32::OLE->Initialize(COINIT)
The Initialize() class method can be used to specify an alternative apartment model for the Perl thread. It must be called before the first OLE object is created. If the Win32::OLE::Const module is used then the call to the Initialize() method must be made from a BEGIN block before the first use statement for the Win32::OLE::Const module.

Valid values for COINIT are:

Win32::OLE::COINIT_APARTMENTTHREADED - single threaded
Win32::OLE::COINIT_MULTITHREADED - the default
Win32::OLE::COINIT_OLEINITIALIZE - single threaded, additional OLE stuff

COINIT_OLEINITIALIZE is sometimes needed when an OLE object uses additional OLE compound document technologies not available from the normal COM subsystem (for example MAPI.Session seems to require it). Both COINIT_OLEINITIALIZE and COINIT_APARTMENTTHREADED create a hidden top level window and a message queue for the Perl process. This may create problems with other application, because Perl normally doesn't process its message queue. This means programs using synchronous communication between applications (such as DDE initiation), may hang until Perl makes another OLE method call/property access or terminates. This applies to InstallShield setups and many things started to shell associations. Please try to utilize the Win32::OLE->SpinMessageLoop and Win32::OLE->Uninitialize methods if you can not use the default COINIT_MULTITHREADED model.

So I tried to clear the problem up with the following code:

#!/usr/ym/util/perl
use Win32::OLE; 

#Perl "C:/documents and settings/aaron.verellen/desktop/trial2.pl"

Win32::OLE->Initialize(COINIT_OLEINITIALIZE);
Win32::OLE->Option(Warn => 2);

#use existing instance if mathcad is already running
eval {$MC = Win32::OLE->GetActiveObject('Mathcad.Application')};
die "Mathcad not installed" if $@;
unless (defined $MC)
{
    $MC = Win32::OLE->new('Mathcad.Application', sub{$_[0]->Quit;})
    or die "Unable to start Mathcad";
}

#Open specific worksheet
my $filePath = 'C:\Documents and Settings\aaron.verellen\Desktop\testM
+12.xmcd';
my $WS = $MC->Worksheets;
my $S = $WS->Open($filePath);


#Set values on the worksheet
$S->setValue('x',50);
$S->setValue('y',60);
$S->setValue('z',70);
    
$S->Recalculate;

my $test = $S->getValue('x');
print "test = $test\n";

my $answer1 = $S->getValue('output1');
my $answer2 = $S->getValue('output2');

print "($answer1,$answer2)\n";
[download]

And I get the same error still. Did I fail to impliment this properly?

Thanks,
Aaron

Ok, so what your telling me is that the getvalue method does not work because of something to do with threads.
Thats my guess. You need to examine $^E or Win32::OLE->LastError() for a better error message.