ecco la risposta...

codice:
#!/usr/bin/perl

use Digest::MD5;

$tempo = time;
$acaso = int(rand 100000) + 1;
$process_id = $$;

$md5 = Digest::MD5->new;
$md5->add($tempo);
$md5->add($acaso);
$md5->add($process_id);
$digest = $md5->hexdigest;

print "Content-type: text/plain", "\n\n";
print "Digest is $digest\n";
quanto credete che sia univoca nel tempo questa soluzione?