#!/usr/bin/perl -T
print "Content-type: text/html\n\n";
use POSIX qw(strftime);
# see man strftime(3) for format options
use strict;
my $gmtstring = strftime "%F %H:%I:%S %z", localtime;
print $gmtstring;
# This will produce: 2012-06-20 09:09:27 -0700 (your GMT may be different)

# The following appends TZ, instead of GMT

#!/usr/bin/perl -T
print "Content-type: text/html\n\n";
use POSIX qw(strftime);
# see man strftime(3) for format options
use strict;
my $tzstring = strftime "%F %H:%I:%S %Z", localtime;
print $tzstring;
# Which produces: 2012-06-20 09:09:57 PDT (again, your TZ may be different)