Select Code to Download

cat header.txt $(perl tao.pl --today)

  
       __.....-..        +-+-+-+-+-+ +-+-+-+ +-+-+ +-+-+-+-+-+
...
    '`           _,'     |  first run for the GNL license.   |
       '--. _..-'        O-----------------------------------O

sub daily_tao 
{
...
HEAD
  printf "%s: %s\n%s", @{ $chapter[$day_index] };
 ...

...
  'today'              => \&daily_tao,
  'B-today'          => \&daily_tao(1),            ## ADDS A BANNER
...

perl tao.pl --B-today | tkmore -

perl tao.pl --B-today | perl -e'while (<>){print($_,$/) if ($_=~s/^/  
+/ && $_=~s/[\r\n]//g)}'|  Xdialog --rc-file ~/.ocrebox.rc --title="To
+day's TAO" --textbox - 0 0 &