#(UNIX)$ date | perl -ne 'print "Today is $_";'Today is Mon Mar 12 20:01:58 PDT 2007#(Windows)$ date /T | perl -ne "print qq/Today is $_/;"Today is Tue 04/24/2007