[Serusers] CDR - via perl

[Kristian Knudsen]

Hi all,
I am trying to setup some cdr generation from a ser server
(version 0.8.14) and I am using a perl script like this:

foreach $var (sort(keys(%ENV))) {
     $val = $ENV{$var};
     if ( ${var} =~ /^SIP_/){
      print FP "${var}=\"${val}\"\n";
     }
}

executed from ser.cfg, but I need the sip_response_code (2xx if ok).
I can see that it is in the output from xlog, is it possible
to fetch the value from any environment parameter at all?
And how to do that.
/kk