use strict;
use warnings;

use Time::Local;

my $time      = time();

my $timegm    = timegm(gmtime($time));
my $gmt       = gmtime($time);

my $timelocal = timelocal(localtime($time));
my $lmt       = localtime($time);

print "TIME: [$time]\n";

print "GMT: [$timegm]\n";
print "GMT AS TEXT: [$gmt]\n";

print "LOCALTIME: [$timelocal]\n";
print "LOCALTIME AS TEXT: [$lmt]\n";