Select Code to Download

#!/usr/bin/env perl 
use strict;
...
Time::Piece->use_locale ();
@days = Time::Piece->day_list;
print "Days are @days\n";

$ perl days.pl 
Days are Sun Mon Tue Wed Thu Fri Sat
Days are dim. lun. mar. mer. jeu. ven. sam.