my $err = Win32::OLE->LastError();
if $err == 0) {
   print STDOUT "Success!\n";
   $objObjSec->close;
} else {
   print STDOUT $err;
   print STDOUT "Failure!\n";
}