Thanks for the review Ken! I ve now become more perl-aware than yesday :)

Thanks for helping me undestand. I used the Time::Piece to get the year/date/format that I wanted and now the code looks pretty neat.