$ perl -mDateTime -E'say DateTime->now->subtract(days => 2, hours => 10, minutes => 20, seconds => 30)->strftime("%F %T")'
2012-09-15 06:40:25