use POSIX qw(strftime); # POSIX is your friend
# see man strftime(3) for format options
my $gmtstring = strftime "%F %H:%I:%S %z", localtime;
print $gmtstring;