RosettaCodeData/Task/Date-format/Perl-6/date-format-2.pl6

use DateTime::Format;

my $dt = DateTime.now;

say $dt.yyyy-mm-dd;
say strftime('%A, %B %d, %Y', $dt);
2016 Update 2016-12-05 22:15:40 +01:00			`use DateTime::Format;`
langs a-z 2013-04-10 22:43:41 -07:00
			`my $dt = DateTime.now;`

2016 Update 2016-12-05 22:15:40 +01:00			`say $dt.yyyy-mm-dd;`
langs a-z 2013-04-10 22:43:41 -07:00			`say strftime('%A, %B %d, %Y', $dt);`