Mod_perl side:
use MD5;

$date = get_todays_shortdate();  # 11/05/2004
$Private_secret = "This is my private server password"
$data = "this is my signed data."

$digest = MD5->hash("$date:$Private_secret:$data");