Time in zone EST5EDT seems to be 01:19:35 2024-05-18<BR>
<BR>
callfirst = y<BR>
<BR>
<PRE>
#!/usr/bin/perl -Tw

use CGI;
use POSIX;

my $cgi = new CGI;
my @time;
my $line;

print($cgi-&gt;header, "\n");

if(lc($cgi-&gt;param("callfirst")) =~ m/^y/){
    # callfirst=y
    # Duplicate the bug- call localtime()
    # BEFORE the TZ environment variable
    # is tweaked.  Subsequent calls will
    # not respect TZ.  This used to work
    # properly.
    # The effect is the same whether
    # localtime is explicitly called with
    # the output of time() or not.
    @time = localtime();
}


$ENV{'TZ'} = 'EST5EDT';
# $ENV{'TZ'} = 'CST6CDT';
@time = localtime();

print "Time in zone " . $ENV{TZ} . " seems to be ";
printf("%02i:%02i:%02i %4i-%02i-%02i&lt;BR&gt;\n", $time[2], $time[1], $time[0], $time[5]+1900, $time[4]+1, $time[3]);

# Show what parameters we got.
print("&lt;BR&gt;\n");
if($cgi-&gt;param()){
    foreach($cgi-&gt;param()){
        print($_, " = ", $cgi-&gt;param($_), "&lt;BR&gt;\n");
    }
}
print("&lt;BR&gt;\n");


# Make the source visible
print("&lt;PRE&gt;\n");

sysopen(SRC, "/home/otto/public_html/timetest.cgi", O_RDONLY) or do{
    print("Cannot open file: $!\n");
    print("&lt;/PRE&gt;\n");
    exit(0);
};
while($line = &lt;SRC&gt;){
    $line =~ s/&amp;/&amp;amp;/g;
    $line =~ s/&lt;/&amp;lt;/g;
    $line =~ s/&gt;/&amp;gt;/g;
    print($line);
}
close(SRC);

print("&lt;/PRE&gt;\n");
exit(0);
</PRE>