My perl code for generating a blog