Help for this page

Select Code to Download

Select or download this

use POSIX; $\ = "\n";
$ENV{TZ} = "EST";
POSIX::tzset();
...
$ENV{TZ} = "DST";
POSIX::tzset();
print scalar localtime();