Congratulations on modifying this script so that it meets your needs!

Now take some time to comment the heck out of the script. Hit every line, and explain in plain language what it is you are doing and why.

Now that you understand what all of the code is doing, is there anything redundant or broken in the code that should be removed or fixed?

If I were reviewing this code, I would make these suggestions:

• Add some comments.
• use warnings.
• Line 32 has a redundant condition in its if clause.
• Use Perl's date functions instead of shelling out to `date` in line 9.
• Use scalars in interpolated strings to simplify formatting of data. (Lines 24,25).

It's clear that you are making progress. Keep up the good work and you will continue to build your skills.