Select Code to Download

$their_stdout = <<`END_CMDS`; die "oops: wstat $?, errno $!" if $?;
  (
...
     echo status;
  ) | lsnrctl
END_CMDS

    # variables normally expand
    $bunches =  "\t@these + @those\n";
...
    # *distributively* suppress variable expansion
    @rpair = \(@these,  @those);

    $place{ 040 } = 1;
    $place{'040'} = 2;
...
         040  => 1,
        '040' => 2,
    );