Select Code to Download

#! perl -slw
use strict;
...
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.
  DB<1> q