{   local $ENV{TZ} = 'GMT';
    print scalar 'Time::Piece'->localtime;
}