$ENV{TZ}='CST6CDT';
print scalar(localtime), "\n";
$ENV{TZ}='MST7MDT';
print scalar(localtime), "\n";

__END__
#output
Wed Jul 23 12:52:59 2003
Wed Jul 23 11:52:59 2003