$ perl -MDate::Simple=date -wle 'print date("2010-04-01") - 1'
2010-03-31