if (-e $filepath) {
        # the file exists
        if (-M $filepath > $maxage_days) {
            
            my $exception = {
                table => $tablename,
                exception  => 'outofdate',
                data  => {
                    file => $filepath, 
                    age  => sprintf("%.2f", (-M $filepath)*24) . ' hou
+rs',
                    still_copying => 0 
                }
            };
[download]

This won't compile since you don't have the same number of opening and closing curly brackets, '{' and '}'. Your indentation is confusing folks also. One suggestion is to use a programming text editor that will help you keep track of opening and closing brackets and do syntax highlighting.