Select Code to Download

package My::DBI;
use base 'Class::DBI::mysql';
...
    }
                                                                      
+          
}

  DB<1> p $s->ses_date
23/06/2003
...
  DB<5> x $s->{ses_date}
0  '2003-02-01'