ecco la risposta...
quanto credete che sia univoca nel tempo questa soluzione?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";