my $nonce_pattern = q(%s%d%d%s my secret code words here) . $0;
my $nonce = $ses->param("nonce") 
       || sha1(sprintf($nonce_pattern, time, (stat $0)[9], -s _, $claim));