use POSIX qw/setlocale LC_TIME strftime/;
use Encode;
my ($strftime_encoding)= setlocale(LC_TIME)=~m#\.([^@]+)#;
sub strftime2	# try to return an utf8 value from strftime
{	$strftime_encoding ? Encode::decode($strftime_encoding, &strftime) : &strftime;
}