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

##

  
       __.....-..        +-+-+-+-+-+ +-+-+-+ +-+-+ +-+-+-+-+-+
    _,'       `\ `-.      |D|a|i|l|y| |T|a|o| |t|e| |C|h|i|n|g|
   /     /['\   |   \      +-+-+-+-+-+ +-+-+-+ +-+-+ +-+-+-+-+-+
 .'      `.:/  .'    L   O-----------------------------------O
 |            ,'     |   |     Tao Te Ching (TTC) from:      |
 |      ,---''        |  |http://acc6.its.brooklyn.cuny.edu/ |
 |    ,'             |   |   ~phalsall/texts/taote-v4.html   |
 `.  |    ,.         /   |                                   |
   \ `    ,.'       /     |  See the file license.txt after   |
    '`           _,'     |  first run for the GNL license.   |
       '--. _..-'        O-----------------------------------O


##

##

sub daily_tao 
{
  my $banner      = shift;## NEW OPTION TO ADD A HEADER WITH THE TITLE
 
...
  print <##

...
  '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="Today's TAO" --textbox - 0 0 &