use strict;
use warnings;

my ($url, $key, $exp, $hash, $link);
$url = 'http://www.domain.com/folder/page.html';
$key = 'm239VdSn';

$exp = time() + 60*60*24;
$hash = crypt(substr($exp,-8,8),$key);
$hash = substr($hash, 2);
$hash =~ s/[^a-zA-Z0-9]//g; $hash = uc($hash);

$link = "$url?$exp-$hash";
print $link;