HTCondorWiki: Soap Wisdom

 my %result = %{$som->result};
 print "$result{'message'}\n";
 
-my $som = $soap->call(
+$som = $soap->call(
     "getPlatformString"
 );
 die $som->fault->{ faultstring } if ($som->fault);
 
-my %result = %{$som->result};
+%result = %{$som->result};
 print "$result{'message'}\n";
 {endcode}
 
@@ -247,9 +247,9 @@
 } else {
         @ads = @{$result{'classAdArray'}{'item'}};
 }
-foreach $ad_ref (@ads) {
+foreach my $ad_ref (@ads) {
         my @ad = @{$ad_ref->{'item'}};
-        foreach $attr_ref (@ad) {
+        foreach my $attr_ref (@ad) {
                 my %attr = %$attr_ref;
                 print "  $attr{'name'} = $attr{'value'} \n";
         }