perl -e "use POSIX qw(strftime setlocale LC_ALL LC_CTYPE);my ($os)=strftime(\"%a [%c]\", localtime); my ($loc) = POSIX::setlocale( &POSIX::LC_ALL,'en' ); my ($en)= strftime(\"%a [%c]\", localtime);print \"$os \n$en\n\";" Mar [22/02/2005 21:41:46] Tue [2/22/2005 9:41:46 PM]