use POSIX "strftime";
my $s=strftime("%c",localtime);
open my($fh),">","without_utf8";
printf $fh $s;
open my($fh2),">:utf8","with_utf8";
printf $fh2 $s;