my $t = MyDBI::Table->retrieve(1);
print $t->date, "\n";
$t->date('2003-07-08');
print $t->date, "\n";
$t->date('07/08/2003'); # read as MM/DD/YYYY
print $t->date, "\n";