Probably the easiest way to get a grip on what that code is doing is to replace the eval "{ $code } 1" with a print "Code is: $code.\n";, then look at the output and compare it to the lines that are generating it.