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 &