Wow, I read the source code for that, a perlmonk definitely did not write that. No use strict at all. All global variables, no my
s at all. It undef
and doesn't even reset it. Instead of simply saying:
open FH, 'foo.bar' or die "could not open";
open FH, 'foo.bar' or print 'could not open' and exit;
It's filled with those print '...' and exit
commands too, not just in the open call. I can see many places that need improvement. It is a neat idea though, if not useful, then just fun.
The 15 year old, freshman programmer,