I won't clean the script up for you, but I have a few hits:

1. Remove the newlines between two related statements
2. Align the closing curly braces to the same column where their opening counterpart is
3. Don't do all the date calculation manually. Use Date::Simple or Date::Calc instead.

After that you script will be much shorter and better readable, and you can start to think about enhancements.