use Modern::Perl;
use Date::Calc qw/Add_Delta_Days/;

my ($year,$month,$day) = Add_Delta_Days(2013,8,1, -1);

say "$day-$month-$year";