Select Code to Download

#!perl

...
  for(my $i=0;$i<=$#parts;$i++) { print "  $i: $parts[$i]\n" if($parts
+[$i]); }

}