Select Code to Download

sub section($&)
{
...

  print STDERR "Section $name: ", timestr(timediff($end, $start)), "\n
+";
}

section A => {
  ... do things ...
...
  ...why not more stuff here...
  ...and some more!...
}