my ($years,$month,$day) = Today();
my $date = Date_to_Text_Long( $years,$month,$day );