setenv("TZ","Blah-Blah",1);
tzset();

##</code><code>##

$ENV{TZ}='blah-blah'
POSIX::tzset()