Oh I kept the first +20 line perl script I ever wrote to remind my self how bad it can get... 'twas a set of CGIs with all the greatest voodoo and cargo-cult programming.

When ever I get cocky I just pull that out and bring myself right back down. This is a nice one:

@call_history=$dbh->sql("select * from teamweb..CALLS where Userid='$u
+serid'");

foreach $line (@call_history)
        {
        $havethey=@$line[0];
        }
[download]

I was fuzzy on both SQL and arrayref nesting =) And this is from the REWRITE... I have been cured of the evil layout, btw. I haven't done anything bad enough recently to warrant a look at the original. Ahhh, 32kb of linear spaghetti code. =)

UPDATE: That bit with the STDOUT redirection still bothers me. I wonder if they have a format that they want to apply to STDOUT and that other SAVEOUT. If I read it right, they could use either handle and have one format work. Evil if that is what they are up to, otherwise I'd bet on a cargo-cult version of something similar. Maybe they redirect STDOUT later and just want to keep SAVEOUT around to bring it to life yet again later? Man that bugs me...

--
$you = new YOU;
honk() if $you->love(perl)