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

##</code><code>##

my ($hours,$minutes,$seconds) = Now();
my $time = sprintf("%02d:%02d:%02d",$hours,$minutes,$seconds);