#!/usr/bin/perl
#
# The current time in chrons
#
$ENV{TZ} = $ENV{QUERY_STRING} || "GMT";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$chrons = ((($hour * 60) + $min) * 60 + $sec) / 86.4;
print "Content-type: text/html
The current time in chrons
The current time in chrons for $ENV{TZ} is
";
printf("%1.2lfc\n", $chrons);
print "
";