Select Code to Download

my $sa = Win32::OLE->new("SiebelDataServer.ApplicationObject") or die 
+"failed";

...
    warn("[$tag] " . $sa->GetLastErrText()) unless $rc == 0)
}

package Automatic:Check;
...

}