Everyday perl code that I can use.