Select Code to Download

use strict; use warnings; use feature 'say';
use DateTime::Format::Strptime;
...

say $datetime->strftime('%a %b %d %T %Y');
__END__

$ perl 1193021.pl
Wed Jul 19 10:07:42 2017