C:\chas_sandbox>perl -le "print `date /T`"
Wed 01/02/2008


C:\chas_sandbox>perl -le "print `echo.\|date`"
The current date is: Wed 01/02/2008
Enter the new date: (mm-dd-yy)


C:\chas_sandbox>