Your adjustments are not necessary here. Assuming the only issue here is the time zone difference, try consolidating your code into something like the following:
my $server_tz = 0 ; # GMT
my $client_tz = -8 ; # PST
my $offset = $client_tz - $server_tz ;
my @t = localtime( time + ( $offset * 3600 ) ) ;
my $date = sprintf "%d/%d/%d", $t[4] + 1, $t[3], $t[5] + 1900 ;
_______________
DamnDirtyApe
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
--Friedrich Nietzsche