Select Code to Download

## bare block with redo to catch perl 5.008 accept loop interrupts 
## (see http://archive.develooper.com/macosx@perl.org/msg03022.html fo
+r details)
...
  print "Got an interruption: $!\n";
  redo;
}

.