Select Code to Download

  use constant DEBUG => 0;
  if (DEBUG) {
...
      " when DEBUG is true.\n";
    );
  }

  macro num_max (x,y) {
    ((x) > (y) ? (x) : (y))
  }

  print "You owe: \$", {% num_max $total-$paid, 0 %}, "\n";

  unless ($expression) {  # include
    ... lines of code ...
...
  } else {                # include
    ... lines of code ...
  }                       # include