Datum->tieVar( (my $d), -type=>'date' );
...
    package Datum;
    sub tieVar {
        my $class= shift @_;
        my $toTie= \$_[0]; shift @_;
        tie $$toTie, $class, @_;
    }