DB<1> p $s->ses_date
23/06/2003
 
  DB<2> x $s->{ses_date}
0  '2003-06-23'
  DB<3> $s->ses_date('1/2/3')
 
  DB<4> p $s->{ses_date}
2003-02-01
 
  DB<5> x $s->{ses_date}
0  '2003-02-01'