Select Code to Download

use POSIX qw(locale_h);
                                                                      
+          
...
   POSIX::setlocale(LC_TIME,$locale);
   print POSIX::strftime("%a\n", localtime);
}