First off, your formatting is very difficult to read. You should indent the code like this.

Example:

if ($blah) {
    foreach (@goo) {
        print;
    }
} else {
    print "no way man!\n";
}
[download]

It makes it much easier to check that all your braces line up.

Secondly, you're not sending $query to the valid_code subroutine, or any of the other subroutines that require that information to work properly.

Thirdly, you don't need to put the code in your first if statement into an eval statement.

My guess is that you're never getting to the part of your code that updates the records.

There are a lot of things you need to do to get this script working. If you'd like, msg me, and I'd be happy to guide you in the right direction.

-aijin