$ perl -MDate::Simple=today -wle 'print today() - 1'
2010-03-28