perl -MPOSIX -Mlocale -e'               ## GET LOCAL DATES AND NAMES
my ($tnow,$gday)=(time,int(60*60*24));  ## TODAY IN SECONDS, SECONDS IN ONE DAY (4 ADDING)
my %wd;
$wd{(localtime($tnow+($gday*$_)))[6]}=strftime("%a",localtime(($gday*$_)+$tnow)) foreach (0..6);                                 ## RELATE NUM. OF DAY OF THE WEEK WITH ITS NAME
print("$wd{$_}, ") foreach (sort(keys(%wd))); ## DISPLAY NAMES IN ORDER (SEE LAST LINE)
print $/                                ## (WEEK DAYS IN SPANISH)
__END__
dom, lun, mar, mié, jue, vie, sáb,
'