$  perl -MDate::Simple=:all -wE 'say today() - 3'
2010-06-12
$