# Declare the local variables used by this subroutine my (@local, @gmt, @cs); # Compute the time zones @local = localtime(); @gmt = gmtime(); @cs = @gmt; $cs[2] = $cs[2] + 2; if ($cs[2] > 23) { $cs[2] = $cs[2] - 24; } # Display the results as an HTML table row WebPerl::Print '
Time Zones | ||
---|---|---|
Local | GMT | CompuSource |