Select Code to Download

   #! /usr/bin/perl -w
   use strict;
...
   {
      print "array $_\n";
   }

   loop a
   loop b
...
   array b
   array c
   array c