in reply to How to substract date in perl?

You can always get the current time in seconds since the epoc (time function), substruct 3*24*60*60 (3 days in seconds), and use existing commands for tranforming the numOfSeconds you got into a date.

Hotshot