use Time::Piece;

$ENV{TZ} = 'UTC';
Time::Piece::_tzset();