inspired by PLEAC a spinoff of the Perl Cookbook