Select Code to Download

##Extremely simple code
for $x ('A'..'Z') {
...
   exit;
 }
}

$tmpfile = "/tmp/results.$^T$$";
for $x ('A'..'Z') {
...
  sort(@results); ## Works well for this example!!
}