Gee, it's actually not the worst Perl code I have seen by any stretch of the imagination. A couple of points: