Select Code to Download

$ perl  -dE 'my $c = shift;
> if ($c == 1) {
...
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<1>