my $csr = Net::OpenID::Consumer->new( 
    consumer_secret => $nonce,
    args            => $cgi,
    ua              => $ua,
    required_root   => $this_domain,
    cache           => Cache::File->new(cache_root=>"$session_directory/csr.cache/"));