#!/usr/bin/perl # I hate the cryptic words Perl usually chooses use Modern::Perl; use strict; # ALWAYS # Let Perl inform me if I might be doing something wrong use warnings; # I hate to read the fine Perl documentation # either I'm too lazy, or it makes my head spin # But I understand Perl will tell me what to do if I use diagnostics; # my code follows {...}