Select Code to Download

$obj=Win32::OLE->GetObject("IIS://localhost/W3SVC/1");
&OLEErrChk("Binding to W3SVC1",1)

sub OLEErrChk {
  my $operation=shift;
...
  }
  else {print "$operation was Successful.\n"}
}