Select Code to Download

#### GLOBS cause defined to show up
  # while(<*.pl>) {}         DEFINEDNESS
...
  # '1 while($x = <*.pl>)    TRUTHFULNESS
  % perl -MO=Deparse -e '1 while($x = <*.pl>)'
  '???' while $x = CORE::GLOBAL::glob('*.pl', 0);