perl DateTime

#!/usr/bin/perl
  use DateTime;
  use POSIX qw(strftime);
foreach (1..111111){
    #$dt=strftime("%Y%m%d %H:%M:%S",localtime(time));
        $dt = DateTime->now(epoch => time()+8*3600);
    #$dt = DateTime->now(epoch => time(),time_zone  => 'Asia/Shanghai') ;
    print "$dt\n";
    }