Select Code to Download

#!/usr/bin/env perl -l

...
push @weekdays, @lastweek{qw{Sun Mon Tue Wed Thu Fri Sat}};

print "@weekdays";

Sat Apr 29 16:20:18 2017
29 28 23 24 25 26 27 28 29

29 28 23 24 25 26 27 28 29 16

29 28 16 17 18 19 20 21 22 23