Select Code to Download

for my$scalar(1..10){print"$scalar"."txt";}

for my $scalar (1..10) {
   print"$scalar"."txt";
}

(defun my-indent-block ()
  "reindent surroundig expression"
...
   )
 )

my $a           =  {
         a      => 1,
...
              c => 3,
             }
        };