Select Code to Download

use POSIX qw(LC_TIME);

...
POSIX::setlocale(LC_TIME,$locale);

my $todaysdate = POSIX::strftime("%a %b %d %H:%M",localtime());