use Win32::OLE::Const 'ActOle'; # guessing here...
use Win32::OLE::Variant;
use LWP::Simple qw/get/;
my $Act;  
eval {$Act = Win32::OLE->GetActiveObject('Act!.Application')}; # guessing here...