perl -d -l -MDate::Manip -e 'Date_Init("Internal=1"); print Date_NextWorkDay(ParseDate("today"), ParseDate("today"))'