There are many date/time packages on CPAN, most of them perfectly capable of adding/subtracting dates. For simple date calculations, I prefer Date::Simple:

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