Help for this page

Select Code to Download

Select or download this

use Date::Calc qw(:all);

...

print "$prev_day";