5 lines
91 B
Perl
5 lines
91 B
Perl
use DateTime;
|
|
my $dt = DateTime->now;
|
|
my $d = $dt->ymd;
|
|
my $t = $dt->hms;
|
|
print "$d $t\n";
|