Select Code to Download

recurse(split('','Hello World'));

...
    print "$car\n";
    @cdr and recurse(@cdr);
}

foo(
   array  => [0..9],
...
      "h:\n", map "\t$_ => $args{hash}{$_}\n", keys %{$args{hash}},
   ;
}