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