in reply to the next day's date
$ perl -MDate::Manip -wle 'print UnixDate ParseDate ("tomorrow") => + "%u"' Fri Aug 9 11:48:57 +0200 2002 $ [download]