This is like JAPH (Just Another Perl Hacker) in perl http://en.wikipedia.org/wiki/Just_another_Perl_hacker