$ perl -l
use strict;
use warnings;
use DateTime;
print DateTime->new( year => 2007, month => 9, day => 10)->subtract( days => 5 )->ymd();
__END__
2007-09-05