my $nonce = param('nonce');
    ...
    my $md5_script = md5_hex($script_body);
    my $md5 = md5_hex($md5_script . $nonce);
    print "$script: $md5\n";